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1.1 Introduction 

This text is not intended to be an all inclusive text but it 
is intended to provide eleraentry OmniFORTH concepts in 
simple easy~to—master manner. 

fl small subset of OrftniFORTH words have been selected that 
will teach the OmniFORTH fundamentals without overpowering 
the reader. 

It is hoped that once this text is understood the reader 
will be able prodress •eiuicklw on his owri in masterind the 
complete set of words listed in the dlossary. 


1.1.1 Uhat is OmniFORTH? 

OmniFORTH is more than Just a computer landuade^ it is a 
landuade^ an operatind system^ an editor^ a monitor and 
assembler all in one extensible pacKade. 

OmniFORTH is like a spoken landuade in that it is a 
collection of defined words which are verbs^ nouns and 
modifiers. OmniFORTH is used> not in writind prodraros> but 
definind new words and then usind the words to produce the 
desired results. Therefore.. OmniFORTH is simply a 
dictionary of words that includes all defined words whether 
they are new words defined by the user or old words 
pr evious 1y defined and supp1 ied in the OmniFORTH packade. 

OmniFORTH can be thdudht of as 16 bit stack orientated 
computer landuade that combines structured prodrammind.^ 
virtual merrjory.. compiler., assembler^ and file system into an 
efficient extensible macro-landuade- 


1.1.2 OmniFORTH is Interactive 

Just as Endlish is interactive ''a person says RUN and the 
person spoken to runs> the OmniFORTH user maw enter the wc»^d 
LIST and the specified text is listed on the console. 

Each new word entered is ready for execution after it is 
defined. This means that you can create a new word> test it 
immediately^ and debud it as you do usind the interactive 
features of OmniFORTH. The interactiveness of OmniFORTH will 
enable your software development effort time to be reduced 
to a fraction of that required by other landuades. 
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1.1.3 OrfjniFORTH is Structured 

Just as English is structured.. OmniFORTH has no GO TO sinc©.» 
when speakina^ it would be imprac-tical to says 

“m TO THE WORD I SPOKE FIUE MINUTES RGO" 

It is impractical in OmniFORTH to GO TO a word that was 
e>!:ecuted previously. OmniFORTH is also roodular like BTalish 
because once a word is defined it is no loneter necessary to 
repeat the definition to aet the desired response. 


1.1.4 OmniFORTH is Extensible 

Extensibility is the ability to define neni words <as 
previously mentioned> that customize a lansRjaae to say or do 
what we wish. New words are added by the user into the 
OmniFORTH dictionary until the user has developed a 
vocabulary that suits his needs. 


1.1.5 Present Day OmniFORTH 

OmniFORTH is still in its infancy. The FORTH lanauaae is 
becomina popular as a control lan^aae and as a man-machine 
and machine—machine interface. More serious users are 
turnina to FORTH because it aives them complete control of 
their computer and it is cost effective, fipplications can be 
written in OmniFORTH that require less harware and software 
investment than other hiah level lan^aaes. 


1.2 The Stack and Arithmetic 

This section deals with console operation and the stack and 
arithmetic operators. 

OmniFORTH is a reverse-polish lartauaaej! this section may 
make OmniFORTH look like a reverse-polish calculator^ but 
later you will find that rev^^se—polish is the natural order 
of computers. 

The stack is illustrated with the top to tbe riaht. For 
examples 

Sn .. . . S3 S2 SI 

is the notation showina SI as top of the stack.. S2 as the 
second stack item.. S3 as the third item on the stacks and so 
forth until Sn which is the nth item of the stack. Since SI 
is the top of the stack.. S2 is below Sl> S3 is below S2.. and 
Sn is below Sn—1. 
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1.2.1 Stack Operators 

The following is a list of the operators used in this 
introduction Cadditional operators are aiuen in Glossary>. 


Word Explanation 

DROP Removes the top stack item. 

DUP Duplicate the top stack item. 

OUER Copy second stack item over 

firsts placinsi it on top. 

ROT Rotate the top three stack 

items^ brindina the third to 
the top of the stack. 

SWAP Swap the top two stack items. 

1.2.2 Arithimetic Operators 


Stack Stack 
Before After 

4 5 4 

2 . 2 . 2 ’:-^ 

2 1 2 12 

1 3 2 3 2 1 

6 1 1 6 


Unless otherwise noted^ all numbers are assumed 16 bit 
sidried integers. All arithemetio is implicitly 16 bit sidned 
integer math. Illustrations assume that the normal base is 
decimal and any other base will be noted on examples. 


The following is a list of arithmetic operators used in this 
introduction <more are aiven in alossary>. 


Word Explanation 

+ Add the two top stack 

values leaVina the sum. 

- Subtract top stack value 

from the seconds leavina 
the difference. 

^ Multiply the two top stack 

values^ leavina a sianed 
16 bit interaer number. 

Divide second stack value 
by the top stack item> 
leavina a sianed 16 bit 
inteaer number- 

xMOD Divide second stack value 

by the top stack item^ 
leavina the quotient on top 
and sianed reminder beneath. 


Stack Stack 
Before After 

2 4 6 

5 2 3 

4 2 8 

7 2 3 

7 2 1 3 
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1.2.3 Output Operator 

The output operator "."pronounced "dot" will convert a 16 
bit sidned number found on top of the stack ^d then print 
it on the console with a trailina space. Conversion is done 
usind the current numeric base. 



yor^d 

EjofS'lanation 

Stack 

Before 

Stack 

Hfter 


It 

Display the top stack value 
as a sidned number^ cfrxsppind 
the value from the stack. 

3 

<type "3" 
droppind 
value> 


1.3 Notations and Examples 

For clarity and brevity., we use some special notations to 
illustrate the OmniFORTH landuade in the followind text. 

User entries will be urtderlined and OmniFORTH output will 
not. 

The symbol <CR> will mean that the user enters a carriade 
return- 


1.3.1 Example! Enter a Number on the Stack 

The user enters a number by typind it on console and 
terminatind it with a carriade return. 

53 <CR> OK 

Explanation: OmniFORTH scans the input buffer until the 
strind 53 delimited by space or carriade return is found. 

The strind is tested adainst defined words in the vocabulary 
and finally is converted to a 16 bit sidned inteder number 
<base 10.. decimal in this example^ and Placed on top of the 
stack. OmniFORTH then displays OK as a prompt indicatind the 
request is complete and it is now ready for more input. 
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1.3.2 Example! Ent-er Number and Print, 

User enters another number and attempts to print Slv 
S2^ and S3. 

78 . . . <CRy 73 53 .? EMPTV STRCK 

E;:<planation! 78 was placed on top of the stack and 53 is 
below it at S2 <the number 53 was entered in the previous 
examp I e>. The first period causes SI to print 78 and cfr'CM» it 
from the top allowing S2 to become the new SI top stack 
item. The second period now prints 53 and drops it from the 
top thus emptying the stack. Finally the third period 
attempts to print an empty stack and the error message "XX 
.? EMPTV STRCK" is typed by OmniFORTH since there was 
nothind left on the stack. Note that in aeneratins the error 
messade the "XX" represents the attempted output of S3 and 
the ".? EMPTV STRCK" was displayed as the error on "." 
tryina to type the empty stack. 


For clarity and brevity, the example above can be 
illustrated usina the followina notation! 


Execution 


Stack <top of stack is to the riaht> 


example 1 
78 


•;CR> 


53 <example 1 left 53 on stack> 

53 73 <put 78 on top of stack over 53> 
53 <type "78" leavina 53 top> 

<type "53" leavina stack empty5 
•Ctype ".XX STRCK EMPTV" error messaae> 
end of input buffer 


1.3.3 Example! Rddition and Print 


User adds two numbers toaether and prints the sum. 


5 2 + . <CR:> 7 OK 

Explanation of the stack at each operation! 

Execution Stack <top of stack is to the riaht> 

5 

5 2 

7 

<type "7" leavina stack empty> 
end of input buffer 


+ 

<CR> 
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1.3.4 Exarnplei Tax Calculation 

User wishes to calculate 5?: of 2900 and print value. 

2900 5 100 V . <CR> 145 OK 

Explanation of the stack at each operation! 


Execution Stack <top of stack is to the riaht> 


' 2900 

2900 


5 

2900 

5 

:+! 

14500 


100 

14500 

100 


145 


m 

•'type 

"145" leauina stack empty> 

<CR> 

end of 

input buffer 

1.3.5 Example! Rll the Op 

erators 

This example will 

illustrate all the operations listed 

in the bedinnina •: 

Zft this 

section. 


4 3 2 1 <CRy 

Sl-tlRP OUER DROP ROT PUP ^ <CR> 

QMER - RQT xNOD x . . <CR> 1 T OK 

Explanation of the stack at eac-h operation! 


Execution 

Stack 

<top of stack 

is to the riaht> 

4 

4 




o 

4 

3 




4 

3 

2 


1 

4 

3 

2 1 


<CR> 

end of first line 


SWRP 

4 

3 

1 2 


OUER 

4 

3 

1 2 1 


DROP 

4 

o 

1 2 


ROT 

4 

1 

2 3 


DUP 

4 

1 

2 3 3 


4* 

4 

1 

2 6 



4 

1 

12 


<CR> 

end of second line 


OUER 

4 

1 

12 1 


- 

4 

1 

11 


ROT 

1 

11 

4 


XMOD 

1 

3 

2 



1 

1 




1 

< type "1" 1eavina 

1 on top of stack> 

m 

<type 

"1“ leavina stack empty> 

<CR> 

end of third line 
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1.4 Defining New Words CCowpi1ina> 


In the preuious section we illustrated the stack and several 
predefined words. We are now aoinsi to show how wou can 
extend the OmniFORTH dictionary bw defining new words in 
terms of existing words and numbers. 


Extensibility of OmniFORTH will enable you to define your 
own words to best describe your application and instruct the 
computer in your own terms. 


Words are definded as a strina of one or more characters 
delimited by at least one space or a carriaae return. 


OmniFORTH will search for the word in the dictionary^ if it 
is found it will he executed. 

If the word is not found in the dictionary^ OrnniFORTH will 
attempt to convert the word to a number usina the current 
number base. 

If the word C character strina> is successfully converted to 
a sianed inteaer number^ the number is Placed on top of the 
stack. 


If all fails^ <the strina was not a defined word or it could 
not be converted to a number) OmniFORTH will type the 
character strina^ print an error messaae> clear the stacks 
and finally stop interpretation of the input buffer. 
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1.4.1 The Colon Definition 

fit this, tirft©^ uj© introduce th© colon definition. Th© 
colon is- a word that is a part of OmniFORTH and enables you 
to define new words. 

, iln th© last section we demonstrated that the user could 
enter and execute th© following interactively! 

2900 5 * 108 X . <CR> 145 OK 

■ State sales tax may be 5?; arid th© user may wish to define a 
T:. .new word TRX that will compute and print th© sales tax for 
a variety of items. The user would enter! 

! TRX 5 * 100 X . ; <CR> OK 

The colon is a word that has been defined to compile 

into the OmniFORTH dictionary a definition header 
contain!ns th© next word appearins in the input buffer 
"TRK". TR!kI will then become a new word definition that will 
cause the body "5 100 ," to be executed whenever TAX is 

used- The "j:" is another predefined OmniFORTH word that 
sisnals the end of a colon definition, fl new word is 
structured as follows: 


! TR:=< 5 100 X . i 

' ! ! end of definition 

If! 

1 i I 

1 ! body of definition 

I I 

1 I 

! name of definition 

i 

compiler directive 

Note that the colon also places OmniFORTH in compiler 
mod© and directs that the followins words in the body of th© 
definition to be compiled in th© dictionary instead of beins 
executed. Th© compilins will continue until the semicolon 
"J" sisnals the end of a definition. Remember that OwniFORTH 
expects a space or carrias© return to delimit words.* so be 
sure to preceed and follow each word with a space and end 
the input strins with a carrias© return. 

We now have a new word TAX defined in our vocabulary that 
will compute 5X of an item and print it. Therefor© we may 
now enter! 

2908 TRX <CR.‘> 

2080 TRX <CR> 

100 TRX <CR> 


or 

or 


145 OK 
100 OK 
5 OK 
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1.5 Conditionals 

No landuade would be complete without, the ability to make 
conditional branches and Loops. This section will introduce 
the IF ... ELSE ... B'IDIF. DO ... LOOP.. DO ... +LOOP. and 
the BEGIN ... LINT IL constructions. It should be noted that 
other conditionals are available but will not be cowered ih 
this text., they are lef^ to the reader to inwestidate. 

Conditionals cannot be used outside of colon definitions 
that define b word. Conditionals are made up of special 
words such as the IF ... ELSE ... E14DIF that depend on each 
other and on the word beind defined for conditional execution 

Fill OmniFORTH conditionals use a condition walue placed on 
top of the st-ack to make a decision. R zero on top of the 
stack sets the false condition <0=FRLSE>. The true condition 
is set when the top of the stack is not a zero. The top of 
st-ack Ctrue or false> is remowed by the condtional. If a 
condition is needed later, the condition must be duplicated 
or sawed for later reference. 


1.5.1 Comparison Words 

In order to prowide examples of IF and UNTIL conditional 
operators., the followind comparison words are listed* 


Stack Stack 


Word 

Expl-anation 

Before 

Word 

After 

0= 

Leawe -a true if top of stack 

9 


0= 

1 


was esual to zero 

5 


0s 

0 

0< 

Leawe a true if top of stack 

-4 


0< 

1 


was less than zero 

4 


0< 

0 

= 

Leawe a true if top two stack 

7 

7 

ss 

1 


items were e«!ual 

1 

3 

3S 

0 

< 

Leawe a true if item under 

2 

6 

< 

1 


top stack is less than top 

9 

4 

< 

0 


Leawe a true if item under 

6 

2 

> 

1 


top stack is areater than top 

4 

9 

> 

0 
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1.5.2 IF Statement 

The IF statement must occur within a colon definition and 
has the following formss 

f IF CtP>... ENDIF 
or 

f IF <tp>... ELSE <fp>... ENDIF 

Uhere! 

f is a Boolean uaIue on top of the 

stack. 0 == FALSE^ non-zero » TRUE 

<tp> is the true part that executes 
if f is true. 

<fp> is the false part that executes 
if f is false. 


E>iPlanations 

The IF selects execution based on a Boolean flaa f that 
preceeds the IF. The Boolean flaa is rerfloued from the stack 
when the IF is executed- 

When f is true <non-zero>^ execution continues thru the true 
part <tp> and skips ouer the EL^ and false part Cfp>^ if 
used^ to Just after ENDIF. 

Uhen f is false <zero>j execution skips over the true part 
to Just after ELSE and executes the false part <fp>> if 
presents and continues thru the ENDIF. 


1.5.3 Examples IF <tp)... ELSE Cfp)... ENDIF 

The following example will print out "Ves" if the top of the 
stack SI is true and "no” if SI is falses 

s VES./-MO IF VES" ELSE .» MO" ENDIF 5 


This routine will remove the top stack item SI and execute 
VES" if SI was true <not e'sual zero> otherwise the ." NO" 
will be executed. The routine can be tested at the console 
ass 

0 VESxNO <CR> NO OK 
1 VESxHO CCR^ VES OK 
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1.5.4 Example! IF <tp>... ENDIF 

Leave t-he smallest, of* the top two stack items. 

: NIN OUER QLiER > IF 5URP ENDIF PROF i <CR> 

Explanation of how the routine works! 

OUER OUER < Duplicates top two stack items> 

> < leave true if S2 > Sl> 

IF SWfiP ENDIF < Swap will execute if S2 > SI) 

DROP < Drops the top <largest) stack item 

leavina minimum on the stack) 


1.5.5 Nestina IF Statements 

IF statements may be nested many times. The limit of 
nestina may var-y between implementaticins^ but in most cases 
the user will run out of need before the limit will be 
reached. The followina example is not a usable operationj- 
but illustrates the nestina capability. 

: NEST-IF 


f IF -Ctp)... 

f IF <tp)... 

f IF <tP)... 


ELSE <fp),.. 


ENDIF 

ELSE <fP)... 

ENDIF 

ELSE <fp)... 


ENDIF 
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1.5.6 DO .. . LOOPS 

DO loops provide the capability of loopinsl a Knoun nunMber of 
times. DO loops are contrueted in two fw'mss 

nl n2 DO ... LOOP 

.and 

nl n2 DO ... n3 +LOOP 

where! 

nl is the loop limit or final value 

n2 is the initial index value 

n3 is the loop increment 

Cnote LOOP is e-suivalent to 1 +LOOP> 

fit execution time;^ the DO sets the loop index I to the 
initial value n2 and saves the loop limit nl. Both nl and n2 
ar-e removed from the parameter stack. Then a se<suence of 
repetitive executions bedins controlled by the loop limit 
nl. Upon reachind the LOOP., or +LOQP the index I is 
incremented by 1, or n3 and then tested. If the index is 
less than the loop limit nl.. execution loops back to Just 

after the DO. When the index I finally increments to be 

esual or dreater than the loop limit., the loop terminates 
removind nl and n3 from the stack. 

Note that the word ”1'* may be used within a DO ... LOOP to 
Place the loop index on the stack. 


1.5.7 Examples! DO ... LOOP 

The followind are two examples that will illustrate the 
operation of each type of DO ... LOOP! 

! fiBC 10 0 DO I . LOOP i <CR> OK 

fiBC <CR:> 0 1 2 3 4 5 6 7 3 9 OK 


! WZ 10 8 DO I . 2 +LOOP 5 <CR> OK 

<CR> 0 2 4 6 3 OK 

It should be noted that the numbers nl^ n2j. and n3 are 
removed from the parameter stack and nl and n2 are placed on 
the return stack by the DO so that they are not directly 
available within the DO ... LOOP. 
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1. 5-S E;<amplei Memory Dump Usina DO ... LOOP 

fl simple memory dump routine may be constructed usina a 
sinale DO ... LOOP. In this case we wish to enter the first 
memory address^ last memory address and the word DUMP. 

s DUMP 1+ SUflP DO I C(§ . LOOP J <CR> OK 

To use the DUMP enter: 

HE^=: 1008 1805 DUMP <CR> 75 5 fiF B7 1 9 OK 

In this example we altered the reurse polish paramet«"s 
nl and n2.- since it seems more natural to enter the startina 
address before the endina address. To do this we execute the 
SWfiP. To include the byte at the endina address we add 1 
to the nl before the SWfiP. The loop index will now increment 
from 1000 to 1005. The I will place the loop index on the 
stack-, the DS will replace the top of the stack with nriemory 
contents pointed to by the loop index and the dot will 

print the memory contents usina base conuersion. 


WPRNING: It is suite common for new OmniFORTH proarammers 
to leaue one or more items on the stack at each loop. If 
the number of loops are larae> the stack may overflow and 
corrupt the memory resident OmnxFORTH system. Use caution 
when testina loops by usina small values and check the 
stack to see if you have left any items on it by accident- 


1.5.9 Nestina DO ... LOOPS 

The DO ... LOOP may be nested simialar to the IF such ass 
s NEST-DO 

nl n2 DO ... 

nl n2 DO ... 

nl n2 DO ... 

LOOP 

LOOP 


LOOP J 


Rlthouah the DO provides tremendous powers, often the user 
needs a loop that is independent of a count;. »nd will loop 
until some condition is true. The BEGIN ... UNTIL loop 
provides this capability. 
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1.5.10 BEGIN ... UNTIL loop. 

The BEGIN .... UNTIL loop is constr-ucLed as follous: 

BEGIN ... f UNTIL 

Where BEGIN marKs the start of a se«iuence that may be 
repetitively executed. BEGIN serves as a return point for 
the UNTIL. If the Boolean flaa f is false CzeroJ.. the UNTIL 
causes execution to return to BEGIN. Only when the flad is 
true <non—zero>^ does the UNTIL force the loop to terminate 
and makes the execution sKip to the word after UNTIL- 

The following is an example that will accept input from t4Te 
console.- then echo the input to the console^ and place the 
input character in a buffer. The input will be terminated by 
entry of a carriage return, fit termination the counter CNT 
will contain the number of input characters entered by the 
user. It should be noted that this routine bypasses the 
normal OmniFORTH input- 

DECIMfiL < set base 10 > 

0 UfiRIRBLE BUFFER 78 RLLOT < dimension Buffer<80>> 


0 UfiRIRBLE CNT 
: INPUT 

BEGIN 

KEV DUP 

EMIT 

DUP 

BUFFER 
CNT <8 
+ 

C! 

1 CNT +i 
13 = 
UNTIL 
10 EMIT S 


< define CNT»0 > 

< define word INPUT) 

< bedin .....) 

< input and duplicate) 

C echo character) 

< duplicate character) 

< set BUFFER address) 

C Set value of CNT) 

< add to BUFFER address) 

< store char at BUFFER<CNT)) 

< increment CNT) 

< test char DUPed before 

for carriade return) 

< exits when char * CR) 

< output 1ine feed ) 
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1.6 Reference Suppliment 

This section is designed to be a. reference suppliment to the 
previous sections. The disscussions are specific areas of 
the use of OmniFORTH and it is assumed that the reader now 
has some Knowledge of OmniFORTH and is familiar with the use 
of the alossary. 


1.6.1 Number Base Conversions 


In theory OmniFORTH can use any number base for input and 
output. The conversion base is stored in a user variable 
called BASE. 


The OmniFORTH initial load or COLD start will set BOSE to 10 
■CDECIMBL;). The user rfiay chanae the conversion base to any 
value from 2 to 36 by enterinas 


n BASE ! C where n is a number 2 to 36 > 


Now ail input and output numbers will be converted accordina 
to the current value stored in BASE. In actual practice 
most of the time a user will use either DECIMAL^ OCTALj« or 
HEX numbers. OmniFORTH''s vocabulary contains predefined 
words.. DECIMAL.. OCTAL., and HEX that set the BASE to 10 j. 8.. 
or 16. , 


The followina is an example of an interactive conversion of 
a DECIMAL number to HEXs 


DECIMAL 255 HEX . <CR> FF OK 


The above example sets the BASE to 10.. places the numb€M" 255 
on the stack., sets the BASE to 16.. and then . converts and 
prints the number usina BASE 16. Note that the BASE is now 
set to 16 and all input and output numbers will be in HEX. 
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1.6.2 Constants 

In any computer lanauaae it is necessary to have dif-ferent 
data types. OmniFORTH has a data constant declaration word 
CONSTRNT that can be used to de'fine words that will place a 
predetermined numeric value on top of the stack. 


The following is an example of the use of CONSTRNTs 


HEX 

0 CONSTRNT ZERO 
1 CONSTRNT ONE 
FF CONSTRNT MASK 
DECIMAL' 


< set BASE 16> 

< define 0=*ZERO> 

< defir® 1=0NE> 

< define FF=sMflSK> 

< set BASE 10> 


The above example will create three words ZEROj^ ONEji and 
MASK that when executed will Place a 0^ 1^ and 255 on the 
stack. 


1.6.3 Uariab1es ^ Arrays and Buffers 

Uariables differ from constants because when they are 
executed the address of the data is Placed on the stack. 
Therefore to aet at the data stored in a variable we must 
use a the word 'S to fetch the contents of ^ address on top 
of the stack. E>camples 

0 URRIRBLE URLUE < initializes 0*UALUE> 

23 URLUE ! < stores 23 at URLUE> 

URLUE « < fetch value at URLUE> 

Arrays and buffers are about the same and can be created 
usina the words URRIRBLE and ALLOT. An eiahty character 
buffer or array can be created asi 

0 URRIRBLE BUF 7S ALLOT 

Note that URRIRBLE defines a word^ BUF in this example^ that 
is 16 bits <two bytes> Iona and initializes it to zero. Next 
the example continues to allocate an additional 78 bytes 
usina ALLOT to extend the BUF array to embrace a total of 
eiahty bytes of memory. It should be noted that only the 
first two bytes have been initialized and the remainina 78 
bytes are not. 

Remember that all references to a variable will cause th» a 
16 bit address of the variable to be placed on the stack. 

Any byte in the buffer may be accessed by addina an offset 
value to the address. For example the fifth byte may be 
accessed bys 


BUF 4 + C® 
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1-6.4 Double Hurnbere <32 Bit.> 

OmniFORTH has the ability to use 32 bit double integer 
numbers to allow computations re-=juirinsi more precision than 
that available with 16 bit numbers. 


Double numbers are constructed as 32 bit signed inteaers 
occupying two 16 bit stack positions or memory locations. 

The top ot the stack holds the most sianificant part 
includina sian.. and the second stack item contains the least 
sianificant part of the double number. 


This section will cover input and output of double numbers. 
The math operators available will not be discussed here 
since they are well described in the alossary <such as 
M.-’’ .• D+ etc. 5 . 


On input the interpreter will treat a number containina a 
decimal point <such as 1.000000) as a double number. 


The number is converted as an inteaer. The decimal point 
will not effect the converted value therefore 1.000000 and 
100000.0 will convert to the same 32 bit sianed inteaer 
number. The only difference is the value placed in user 
variable DPL. 


DPL is set to the number of diaits to the riaht of the 
decimal point and it is up to the user to use DPL as needed. 


Double numbers can be displayed usina ”D." to perform the 
conversion from 32 bit sianed inteaer number into diaits 
that can be printed on the console. For further custom 
formattina see the next section. 
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1.6.5 Cu-st-om Number Format.t,ina 

Cust-om format-t-ina may seem complex at first. 3nd is not 
necessary for most applications. 


The following WORDS are used in number formattings 

<#. #>. SIGN.. HOLD, and #S 

The Glossary should be referred to for definitions and use 
of the operators. 


In deneral <# setups for a double number conversion. # or #S 
•are used to convert the didits and #> is used to terminate 
the conversion. The words SIGN and HOLD are used to insert 
the sidn and or other characters such as decimal points, 
commas, etc. 


The converted didits bedin with the last sidnificant didit 
beind stored at PfiD-1 and each succeedind didit Placed below 
that at bytes PHD-2. PHD-3, etc. 


#> F-laces, the count of characters and address of the 
converted strind on the stack in the order required for the 
word TVPE which will output the strind- 


The above discussion is not complete and will require 
experimentation of the user. In hopes of helpind. the codind 
of output operators we have included listinds of screens 
that are supplied with OmniFORTH. The OmniFORTH INSTRLLHTION 
manual contains source listinds for several custom number 
routines alond with source for the OmniFORTH EDITOR that can 
be used for reference. 



OmniFORTH 

Editor 
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2.1 OmniFORTH Text Editor 


The OmniFCJRTH operating system contains an EDITOR 
vocabulary. The EDITOR allows you to build and maintain text 
on disk. New text and chants to existing text are made 
interactively usina the EDITOR . Insertion^ deletion^ and 
replacement of* text are allowed. 


Some of* the features of the EDITOR ares 
Text may be listed. 

Hew lines may be inserted. 

Existing lines may be altered or deleted. 

Lines may be copied or moved on a screen. 

Text on one screen can be copied to another screen. 
Character strinds in the text may be found and chanded. 
Internal pointers to line arid cursor are under your control. 
Edit command definitions can be called by your application. 
New commands can be added to existind set to extend EDITOR. 


The source for the EDITOR is provided on the OmniFORTH disk 
startind at screen 36. We hope that you will use it to learn 
more sdbout OmniFORTH and encourade you to extend it to suit 
your needs. 


CfiUTION 

Hie EDITOR dives you complete control and access to all 
information stored on disk. We recommend that you make a 
backup copy of your disk before st^tind an edit session. 
Use your Disk Operatind System DOS to copy the entire disk 
for backup. 

Vou will be editind interactively and directly onto disk. 
Need for backup will be dreatest while you are learnind how 
to use the system and will diminish as you dain e>iPerience. 
Even experienced users will occasionally mal«.e mistalses and 
destroy valt4able information on disk^ so please use caution 
and take the time to make a backup copy of your disk. 
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2.2 EDITOR Commands 

TT^ EDITOR responds to the followina command vocabulary 
shoAxin alphabetically. 

fill commands are shown in upper case. Parameters and user 
supplied data are indicated in lower case. Strind indicates 
one or more characters* and numbers are indicated bw n and 
m. Each command is terminated by typind a carriade return. 


Use the command TOT^ to reset error flads and restart edit- 

The cursor Position is shown by the _ underline character. 

The EDITOR uses OmniFORTH variables PflD <to allocate text 
bufTers> and SCR Cto indicate which screen is beind edited?. 

Note <part of* CteiniFORTH ♦? indicates a command available 
outsicte of the EDITOR vocabulary. They are included here 
because they are useful when editind. 


DESCRIPTION 

Backup cursor bw lendth of text in PRD. 

Copy strind into line at cursor. 

Clear ©mtire screen n to spaces. 

Copy all text from screen n to screen m. 

Delete line n by holdind line at PRD 
and movind lines n+1 thru 15 upwards. 

Line IS will be reproduced. 

Notes 15 D won^'t work because n+1 is 
off screen. Use 15 H 15 E to Hold 
and Erase line 15. 

n DELETE Delete previous n characters before cursor. 

n E Erase line n by fillind it with spaces. 

F strind Find strind startind at cursor until 

end of screen. If strind is not found 
on screen* the cursor is placed at top 
of screen with a diven error messade. 

FLUSH Flush or write updated screen to disk. 

(part of OmniFCM?TH ♦? 

n H Hold line n by copwind to PRD. 


COMURND 

B 

C strind 
n CLERR 
n m copy 
n D 
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2.2 EDITOR Comtikands. <continued> 

COMmND DESCaiilPTION 

n I Insert text from PRD at line n by rusTiina 

lines n+1 ciown and discarding last line. 

n m IhH>EX Index listina of line 0 of each screen 

bealnnina ui^ith screen n until screen m. 

<part of OmniFORTH >««> 

L Re-List current edit screen. 

Use n LIST to list any other screen. 

n LIST List screen n and set SCR makina n current 

edit screen. Crart of CSKuniFORTH 

n M Move cursor by sianed n characters and 

disrlay TOD. If n<0 then moue backwards. 

N Next occurence of previous Find strina. 

If strina is not founds the cursor is moved 
to top of screen and an error messaae aiven. 
This allows another scan of current screen. 

n P strina Put strina on line n and in PRD. 

This command is used to input and overlay 
lines of text within a screen. 

n R Replace on line n text held in PRD. 

n S Spread by movina line n downwards and 

space fiHina line n. Line 15 is lost. 

n m SMOUl List screens in TRIRDs <three per paae). 

Uses TRIJ® and includes screens n thru m 
in show list. <part of OmniFORTH 

n T Type line n^ placina line in PRD arid n on 

stack. 

TILL strina Delete from cursor unTILL end of strina. 

TOP Top cursor home to TOP of screen. 

n TRIffi> List screens in TRIRDS <three per paae>. 

Each paae beains with a screen nunriber evenly 
divisible by 2. TRIAD allows replacina one 
paae« rather than listina entire application 
<i4')en chanaes ar-& made. <part of OmriiFORTH 

X strina Delete the first occurence of strina> 

startina'scan from current cursor position 
until end of screen. 
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2.3 EnterirfcS the EDITOR 

CfiUTIONa Make a backer corw of your disk usina DOS before 
startinsi an edit session. 

The source for the EDITOR is provided bedinninsi on screen 36 
of the OmniFORTH disk. 

To ctet«^mine if EDITOR is residents types 
EDITOR 

If the EDITOR is not resident you will see EDITOR? and will 
need to type ins 36 LC3tf® EDITOR followed by a carriage 
return to load the EDITOR and enter its vocabulary. 

fl prompt OK will appear when the EDITOR is entered and -h^su 
will be ih the EDITOR'^s vocabulary until you return to 
OmniFORTH by compiling a new word or re'^uestins another 
voc.^3ulary. 


2.4 Screen Commands 

TTie EDITOR works with a paae of text called a screen- R 
scre^ consists of 16 lines <numbered 0-15> with 64 
characters on each line. Screen nunibers are assigned to each 
screen and represent a contiguous area on disk. OmniFORTH 
variable SCR is used to store the current editing screen 
nuniher and will be altered by most of the screen combiands. 
Vou maw alter it yourself by typinas 

n SCR ! 

where n is the screen number that you would like. Most of 
the screcHn commands will do this for you automatically. 


2.4.1 Screen List: n LIST <part of OmniFORTH 

Once you enter the EDITOR you should list a screen. Sample 
edit screens 57 a 5Sa and 59 have been provided on the 
OmniFORTH disk to dive wou a chance to learn how to use the 
EDITOR. Vou may list a screen at any time by typind its 
number and LIST. For exampleA 

57 LIST or 58 LIST or 59 LIST 

will list screen 57a58a or 59. LIST not only lists a screenA 
it also places the screen number in the OmniFORTH variable 
SCR. The H5IT0R uses SOR to determine which screen is beind 
edited. Vou should LIST a screen before you bedin editind it 
to verify that it is the one you want and to set SCR. 
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2.4.2 Screen Re-Lists L 

Once you are in the EDITOR^s ^ocabular^j^ you can type L to 
list the current edit screen. Try typings 


L 

to list the current edit screen stored at SCR. 


2.4.3 Screen Index: n » I^'^DEX <part of OmniFORTH :4e> 

IhS>EX will list line 0 of a ranse of screens starting at 
screen n until screen m. INDEX is part of OmniFORTH and can 
be called at anw time. For example types 

36 44 INDEX 

to list the first line <line 0> of screens 36 thru 44. Note 
that comments are enclosed by left and riafit parentheses ^ 
preceded and followed by a spacer and can be used for 
doccmkentation anyuhere on screen. It is a aood practice to 
use line 0 ^ a comment line to describe the screen. INDEX 
will not alter SCR. 


2.4.4 Screen Triad Lists n TRIRD <part of OmniFORTH 

To list the entire text of a triad of screens^- types 

36 TRIRD or 37 TRIRD or 38 TRIRD 

u4^ich will list three screens per paae^ the first screen 
always startina with a number euenly divisible by three. 
This is ctohe so you won^'t haue to list an entire source 
file Just to update a few paae chanaes. TRIRD alters SCR to 
last screen listed on paae. 


2.4.S Screen Shows n m SHOW Cpart of OmniFORTH *•> 

SHOW uses TRIRD to list entire screens over a ranae. For 
example types 

36 44 SHOW 

to list triads of screens that ma(<.e up the text EDITOR, f'lote 
that the first screen cxi each paae is euenly diuisible by 
three includina screen n on first paae and m on last paae. 
SH(^ alters SCR to last screen listed on paae. 
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2.4.6 a?r®en Copy: n m COPV 

COP*^ allows ©nt,ire screens of text, to be transferee! from one 
screen to anothMST. Text from screen n will be coried to 
scriwn m. For example tyre: 

30 59 COPV 

to copy screen 30 to 59. Note that SCR will not be altered 
by COPV. 


2.4.7 Screen Clear: n CLB=IR 

CLEfVt s cr een n to spaces and set SCR e«iual to n. Type: 

59 CLEm 

to clear screen 59 and set SC3? to 59 maKina it the current 
edit screen. 


2.4.8 Screen Flush: FLUSt <p^t of OmniFORTH 

FLUS^ is a part of OmniFORTH and can be called any time to 
write an updated screen to disk- FLUSH re«iuires no 
parameters and is called by: 


FLUSH 

Note that FLU9^ will only write to disk if there has been an 
ie>date to a screen. FLUSH will not alter SCR. 


2.5 Line Commands 

The £DIT(^ contains a uocabulary of line editind commands 
that allows complete control text lines. There are 64 
characters, per line and 16 lines <numbered 0 thru 15> in an 
edit screen. 

Please copy screen 57 to 59 and use 59 as a sample edit 
screen to familiarize yourself with the line commands. Type: 

57 59 COPV < to copy screen 57 to 59 > 

TOP < to position cursor to TOP > 

59 LIST < to list screen 59 and set SCR=59 > 
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2.5.1 Line Deletes n D 

Delete line n of current edit screen by movina line to PflD 
and pullind lines n+1 thru 15 upji reproducing line 15. 
Examples 

5 D 

will hold line 5 in PRDji pull lines 6 thru 15 up into 5 thru 
14 thus reproducing line 15 at 14. Remember that D will 
rehLWkber the remaining lines in the screen each time it is 
used. Observe that 15 D will not work because 15+1 is off 
current edit screen. Use 15 H then 15 E to hold and erase 
line 15. Note that PRD holds original line 5 ready for other 
line commands like T or R. 


2.5.2 Line Erases n E 

Erase line n by fillina it with spaces. ExawiPles 
12 E 

will space or blank fill entire 64 characters of line 12. 

2.5.3 Line Holds n H 

Hold line n by copyina it to PRD. For exattriPleS 
15 H 

will move line 15 into PRD without disturbina oriainal line 
15 in any w^. PRD can be used by other line commands like I 
w* R to reproduce PRD text on current or any other screen. 


2.5.4 Line Ins€»rts n I 

Insert text held in PRD at line n by pushina lines n+1 down 
and discardina last line. Trys 

SI 

to move line 8 thru 14 down to 9 thru 15 and then replace 
text held in PRD on line 8. Mote that I will renumber the 
remainina Tines in the screen each time it is used. 
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2.5.5 Line Puts n P s-trina 

Put string of text into PRD and copy to line n. Put is the 
coimnand us^ to input new lines of text. For example: 

12 P the «iuicK iM^own fox 

will move "the <?uick brown fox" into PAD and replace line 12 
with the contents of Pf®. 


2.5.6 Line Replace: n R 


Replace line n with the contents of PRD. For example^ if PAD 
h^ been loaded usinai D> I> P^ or T then typinsi: 

7 R 

will copy text from PAD onto line 7 of current edit screen. 
Note that R is useful to repeat lines on screens. 

2.5.7 Line Spreads n S 

Spread opens up line n by pushind lines n thru 14 down to 
n+l thru 15 and then space fillina line n. For examples 

4 S 

will push lines 4 thru 14 to lines 5 thru 15 and then blank 
fill line 4. Note that line 15 is lost and that each time S 
is used^ the remainind lines in the screen are renumbered. 


2.5.8 Line Types n T 

T%^»e will display 'Just one line of a screen placind the 
line of text in PAD and line number on stack. For example: 

0 T 

will type line 0^ place its text in PAD^ and line nuftber 8 
on the stack. Note that T can be used to set up other line 
editind commands D^ E* I^ and S. Remember that durind a 
normal edit session you will probably use several T-'s^ 
pushind numbers onto stack and not usxnd or poppind them 
off^ so it is a dood idea to clean up the stack occasionally 
by typindSPL followed by a carriade return. 
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2.6 Strind Commands 

The EDITOR^s uocabularu contains command definitions that 
alloui interactive character strina and cursor manipulations. 
The cie'sor position is shown by the - underline character, 
htekte that one space must separate a command that uses a 
strirfcfl par^eter and all commands re«iuire a carriage return 
to execute. 

Please copy screen 57 to 59 and use 59 as a sample edit 
screen to familiarize yourself with the line commands. Types 

57 59 COPV < to copy screen 57 to 59 > 

TOP < to position cursor to TOP > 

59 LIST < to list screen 59 and set SCR=59 > 


2.6.1 Strinal BacKup: B 

Backup cursor by the lendth of text in PAD. This command is 
norinally uSed after a C.* F* or N to reposition cursor to the 
beSlinnind of the strina. For example., after usina F strina.. 
you may twes 


B 

to move cursor back to beainnina of taraet strina. Note that 
repeated use of B will backup cursor past TOP. 


2.6.2 Strina Copys C strina 

Copy strina by insertina it into line at present cursor 
location. For example^ after positionina cca^sor^ ‘you may 

types 

C copy strina test 

to insert "copy strina test" at cursor location. The 
remainder of line is displaced risttnt causina any trailina 
characters past the 64th to be lost. Remember to inspect the 
prompt line after usina C to check if you have lost last 
few characters. If end of edit screen is detected^ an error 
messaae OFF CURRENT EDITIh4G SCREEN is aiven <use TOP to 
reset>. 
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2.6.3 String Deletes n DELETE 

To delete the Rre»v»ious n characters that arrear bef'ore the 
cte-scr. For exaimple if cursor is located after a strinsi Just 
tw»es '■ 

2 DELETE 

and w)u will delete the last two characters of strina and 
iHill the remainder of line left. Note that if you delete 
while the cursor is positioned at beainnind of a line you 
will pull line up into preuious line. 


2.6.4 Strinsi Finds F strinsi 

Find stinst starting scan at cursor until end of screen. Try: 
F tarsiet 

to Firwl "tardet” strina. If taraet strina is not found or 
search encounters end of screen error messaae is aiuen 
and the cursor is placed at TOP ready for another scan. Vou 
may use N to search for Next taraet strina. 


2.6.5 Strina Moues n M 


NoMe cursor by si^ed n locations and then display prompt 
lir^. For- examples 

-5 M or 7 M 

will moue cursor back 5 or forward 7 positions and display 
line shcMyiha new cursor location. Note 0 M will display 
1ine without moMina cursor. 


2.6.6 Strina Next: N 

Next will search for the Next occurence of the previous Find 
taraet strina. Search starts at current cursor location and 
continues until end of screen. For example^ after usina Fj 
trys 


H 

to find Next taraet used by F. Note if scan encounters end 
of screen an error messaae is aiven and the cursor is 
positicxted to TOP ready for another scan. 
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2.6.7 String Tills TILL strina 

. # 

Deletes characters starting at cursor and continuina unTILL 
end of strina has been deleted on current edit line. 

Position cursor and types 

TILL test 

to delete all ch5M^acters unTILL end of strina. Note that an 
error messaae is aiuen if srtina is not found or end of line 
is encoLTitered. 


2.6.8 Strina Tops TOP 

TOP will moue cursor location home to the TOP left position 
of t4ie current editina screen. TOP can be used to reset 
error conditions and to resume edit session. 


2.6.9 Strina extracts X strina 

Remoue or extract the first occurence of taraet strina 
startina iM^an at current cursor location. Trys 

X test 

to extract the strina "test" from the edit screen. Note that 
an error noessaae is aiuen if strina is not found. The cursor 
is positioned to the TOP of the current edit screen to allow 
another scan. 
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3.1 OnmiFORTH 3080 + Z80 ftssembler 


OmniFORTH provides t-h© ability t.o impIerrient- naLive machine 
. cod© of the resident, processor, flithouah OmniFORTH provides 
power almost, e^iual to assembly lanauaa© there are some cases 
where the user may desire to us© native machine code such as 
callind predef’ined subroutines or in speed critical 
routines. Rssembly cod© is easy to produce in OmniFORTH^ 
often easier than usins a st-andard assembler. 


OmniFORTH comes with a complete incremental structured 
assembler for each processor implemented. This implemenation 
is supplied with a 3080 assembler loaded and ready to use> 
Plus and optional ZS0 assembler that can be loaded by the 
user as needed. 


3.2 CODE words 

Users of FORTH refer to the asserribly landuade routines as 
CODE words. CODE words once created may be used the same as 
any other OmniFORTH word. The OmniFORTH assembler is always 
resident and is invoked by the words CODE or ASSEMBLER. 
ASSEMBLER is the name of the assembly vocabulary dust as 
FORTH is the name of the fundamental '-..ocabulary. 

CODE words bedin with the word CODE and end with NEXT JMP. 
HE>=:T beind the address of the reentry into OmniFORTH. The 
structure of a OTDE word is: 

CODE name . assembly cod© . NEXT JMP 

where name is the name of word the same as used with a colon 
definition. 


Inorder to be complete.- OmniFORTH provides the ability to 
loop and test by the use of the words BEGIN^ UNTIL.. IF n 
and ENDIF <similar to their us© in hiah le>v*el OmniFORTH?. 

There is on© fundamental difference when codina code words 
from codina colon wordsand that is that the interpreter is 
in execution mod© and not in compile mode. Therefor© hi ah 
level OrfiTjiFORTH words such as SUJAP.» DROP. 1+. etc. may be 
used at assembly time to manipulate addresses, values etc. 
Another consideration is that like hiah level OmniFORTH. the 
reverse polish notation holds, therefore mnemonic definition 
is reversed from that of a standard assembler. An example of 
this can be seen in the NE-fT JMP which would be JMP NEXT 
with a standard assembler. 



Inter-act-iMe Comput-er Syat-ems.^ Inc 


OmniFORTH fiSSEMBLER 3-2 


3.3 Conditional Test. Operators 

When usind the BEGIN ... UNTIL and IF ... ELSE ... ENDIF 
structures in the assembler., the UNTIL and IF statements 
will code conditional Jumps. Inorder to make the proper 
Jump code., the user must precede the IF or UNTIL by one of* 
the assembler conditional test operators. 

FISSEMBLER TEST OPERfiTORS 


0= True if condition code Z Bit is set 

CS True if condition code C Bit is set 

PE True if condition code P^^M Bit is set 

0< True if condition code S Bit is set 

NOT Reuerses Iodic of the aboue conditions 

3.4 Code word terminations 

Code words are terminated by Jumpind into the interpreter a 
therefore the OmniFORTH assembler provides three constants 
that provide absolute addresses within the interpreter they 
are! 

NEXT Standard entry into the interpreter 

HPUSH Push''s the HL redister on the stack 
then does to NB<T 

WHPUSH Push-'s the UW'' <or DE> and the HL redisters 
on the stack then does to NEXT 

These constants are used ass 

NEXT JMP 
HPUSH JMP 
or WHPUSH JMP 

3.5 OmniFORTH Redister Desidnations 

OmniFORTH uses two of the 16 bit redister Pairs to hold 
system pointers. They are the DE redister which contains 
the word pointer and the BC redister which contains the 
interpreter pointers therefore most FORTH prodrammers prefer 
to refer to the D and E redisters as W and W" and the B and 
C redisters as the I and I"'. For those die hard assembly 
prodr ammers the user may load the D.» E^ B^ and C operators 
from the optional instruction set. 

The WW"' redister pair may be chanded within a code word 
since NEXT will restore the WW-' redister pair. 
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UARNIHG: 

The 11 "' reaister pair rnust be restored by the user within 
+vh© code word^ if usedv because FORTH will blow when hEXT 
is entered arid if II'' is incorrect. 

Thie user may use all other registers <except the stack 
pointer SP> since all FORTH intra word parameters are 
passed on the stack. 

3.6 Optional ZS© Instruction Set 

Inorder to saue memory space the entire Z88 instruction set 
is not precompiled in OmniFORTH the user is provided with 
the source of the remainina mnemonics and may elect to load 
any Part or all. The optional mnemonics are indicated in 
the mnemonic list by an asterisk in colurrn one. 

3.7 Compatibility 

Inorder to remain compatible with other versions of FORTH in 
8 b i t i mrned i ate i nstruct i ons.. Ommn i FORTH all ows the use of 
the Immediate operator #. The followina table lists 
alternate forms of some mnemonics listed in 'the assembly 
mnemonic table! 

Standard Alternate <available in OmniFORTH> 

yy # R mu 
yy # ADD 
yy # ADC 
yy # ANA 
yy # XRA 
yy # CMP 
yy # ORA 
yy # SUB 
yy # SBB 

Normally CODE words are written in HEX mode therefore "the 
HEX values A>B^C.»D^5c E would be misinterpeted as registers 
instead of the HEX values. Inorder to avoid this problem^ 
the user when usina the assembler should use ©Aji ©B^ ©C# 

SD.. ■& ©E for the HEX values» 

WARNINGS 

The Cj D^ E redister mnemonics are not resident in the 
standard system therefore if use is desired they must be 
loaded from the optional assembly mnemonic source- 

This manual is not intended to teach assefftbly lanauade 
proarammina.. but to be a auide in implementina machine cocte 
in FORTH. User'’s that are not already proficient in assembly 
lanauaae codina should consult other reference material. 


yy R MUI 
yy ADI 
yy AC I 
yy AN I 
yy XRI 
yy CPI 
yy ORI 
yy SUI 
yy SB I 
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3.S Examples 

The ■following are examples or simple code words used to 
illustrate OmniFORTH assembly codina. It should be noted 
that they are for example purposes only and may already 
exist or may be of no practical use. 


3.S.1 Duplicate the top stack item. 

CODE DUP H POP H PUSH HPUSH JMP 


3-S.2 Add the top 2 stack items- 

CODE + U POP H POP y DRD HPUSH JMP 


3.S.3 SUflP the top 2 stack items. 

CODE SUfiP H POP XTHL HPUSH JMP 


3.8.4 Call a user routine located at address F000. 
CODE SRM F000 CALL NEXT JMP 


3.8.5 Search memory starting at the adcft^ess on top or the stack 

for- a character contained in the second item on the stack.* 

leauina the address or the character on the stack 

CODE SEARCH-MEM H POP U POP U" A MGU 

BEGIN M CMP H INX 0= UNTIL 

H DCX H PUSH bEXT JMP 


3.8.8 Replace the top or stack with a 1 <TRUE> ir it is e=«ual 
to a zero otherwise replace it with a 0 <FflLSE> . 

CODE SAM H POP A XRR H ORA L ORA 0 H WI 
0a IF 1 L MUI ELSE 
0 L MUI ENDIF HPUSH JMP 
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3.9 Assembler Mnemonics 


The follouina mnemonic table was modified and reprinted 
from A. M. Ash 1 ey •' s PDS Assemb ly Lanauade Deve I opment System 
which was used to develop this ZS0/8080 OmniFORTH System. 


Reprinted with thanks and permission ofs 


A. M. Ashley 

395 Sierra Madre Uilla 
Pasadena/ CA 91107 

<2135 793-5748 
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3.9.1 Register 

Mnemonics 



fill of the ZS0 

reaisters ha*v)e been assi^^d predefined 


mnemonics. These assianments aaree with those ai'ven by 

INTEL 

and ZILOG. 




The predefined reaister set is defined 

as: 


Reaister 

Definition 

Value 


R 

flccurftulator 

7 


;4e B 

S or 16 bit 

0 


I 

S or 16 bit 

0 


C 

3 bit 

1 


I •' 

3 bit 

1 


D 

3 or 16 bit 

2 


y 

3 or 16 bit 

2 


E 

3 bit 

3 


W' 

3 bit 

3 


H 

8 or 16 bit 

4 


L 

3 bit 

5 


M 

Memory Indirect 

6 


SP 

Stack Pointer" 

6 


PSW 

Proaram Status Word 

6 


IX 

16 bit Index 

^DH 


IX> 

16 bit Index 

0DOH 


IV 

16 bit Index 

0FDH 


IV> 

16 bit Index 

0FDH 


* RF 

Refresh Reaister 

04FH 


* lU 

Interrupt Vector 

847H 


# 

Immediate 



These reais 

ter assianments may not be 

redefined- 


* Indicates an optional mnemonic Csee text>. 
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3.9.2 Assembly Lanauaae 

As a conse-siuence of favoring the INTEL r(tnemonic set over 
that of ZILOG^i the Z30 instruction superset has been 
invented. One consideration in the definition of instruction 
mnemonics is standard assembly lan^ua^e convention. In the 
instruction mnemonics which follow. 

•=j«| pp refers to an arbitrary 16 bit datumn 

yy refers to an arbitrary 8 bit datumJ 

d refers to a Z80 displacement except 

for relative Jumps* 

R refers to an 8 bit reaister 

<Ry B or Ij C or I"* D or UI^i E or W'’,. H* L.» M> 

RP refers to an 16 bit register pair 

<B or I. D or W. H. SP> 

QP refers to an 16 bit register pair 

<PSUJ^ B or Ij D or UIj H> 


3.9.3 Eiaht Bit Load 

MNEMONIC ZILOG 


REMARKS 


R R MOU 
d IX R MOU 
d IV R MOU 
R d IX MOU 
R d IV MOU 
lU A MOU 
RF A MOU 
A lU MOU 
A RF MOU 


LD RjR 
LD Rj<IX+d> 
LD Rj<IV+d> 
LD <IX+d>jR 
LD CIV+d>jR 
LD Aj I 
LD AjR 
LD IjA 
LD RjA 


From register to register 
Register indirect CR not= M> 

Memory indirect <R not=» MJ 

Fetch interrupt vector 
Fetch refresh register 
Load interrupt vector 
Load refresh register 


3.9.4 Accumul ator Load / Store- 


S4 pp LDA 
B LDAX 
D LDAX 


LD A/<nn> 
LD Aj<BC> 
LD Aj<DE> 


Accumulator direct 
Accumulator extended 


cjc| pp STR 

B STAX 
D STAX 


LD <nn>jA 
LD <80 j A 
LD <DE> j A 


Accumulator direct 
Accumulator extended 
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3.9.5 Eiaht. Bit Load Immediate 


MNEMONIC 

ZILOG 

REMARKS 


yy # R MOU 

LD R^n 

Realstep 

immediate 

* yy R MUI 

LD R.n 

Reaistw' 

immediate 

yy d IK MUI 
yy d IV MUI 

LD <IX+d:).n 

LD CIV+d>.n 

Merflory indirect immediate 


-T C 

W N 

^6 

Sixteen Bit 

Load / Store 




PP 

RP LXI 

LD RP^nn 

Extended immediate 


^<=1 

PP 

IX LXI 

LD IX. nn 



<=l«l 

PP 

IV LXI 

LD IV.nn 



•=l=l 

PP 

LHLD 

LD HL.<nn) 

Ext^ded indirect load 


•=l=l 

PP 

LBCD 

LD BC.<nn? 




PP 

LDED 

LD DE.<nn> 


¥ 


PP 

LIXD 

LD IX.<nn> 




PP 

LIVD 

LD IV. Cnn> 




PP 

LSPD 

LD SP.<nn> 



-=l«l 

PP 

SHLD 

LD CnnJ.HL 

Extended indirect store 


•q<=| 

PP 

SBCD 

LD <nn>.BC 




PP 

SDED 

LD <nn>.DE 


>fe 

•=!«l 

PP 

SIXD 

LD <nn>.IX 


j4« 


PP 

SIVD 

LD <nn>.IV 


:4« 


PP 

SSPD 

LD <nn>.SP 



SPHL 


LD SP. »L 

Set stack pointer 

:45 

SPIX 


LD SP.IX 


:4c 

SPIV 


LD SP.IV 



QP 

PUSH 

PUSH QP 

To stack 


IX 

PUSH 

PUSH IX 



IV 

PUSH 

PUSH IV 



QP 

POP 

POP QP 

From stacrf^ 


IX 

POP 

POP IX 



IV 

POP 

POP IV 



* Indicates an optional mnemonic <see text> 
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3.9.7 Exchangej BlocK Transf'ers^ and Search 



MNEMONIC 

ZILOG 

REMARKS 


XCHG 

EX DE.HL 

Exchan^ 


EK 

EX RF.RF^ 


:4s 

EKK 

EXX 



XTHL 

EX <SP>.HL 


Hi 

XT IX 

EX <SP>,IX 


Hi 

XT IV 

EX <SP>.IV 



LDI 

LDI 

Transfer 


LDIR 

LDIR 



LDD 

LDD 



LDDR 

LDDR 


Hi 

CFD 

CPD 

Search 


GPDR 

CPDR 



CPU 

CPI 



CPIR 

CPIR 


3.9.8 Eidht- Bit 

RrithmeLic and 

Logical 


R ROD 

ADD R 

Add reaister 


yy # RND 

RDD R.yy 

Add immediate 

Hi 

yy RDI 

ADD Rjyy 

Add immediate 


d IX RDD 

ADD <IX+d> 

Add indirect 


d IV ADD 

ADD <IV+d> 



R RDC 

ADD R 

Resiister with carry 


d IX RDC 

ADC <IX+d> 

Memory indirect with 


d IV RDC 

RDC <IV+d> 



yy # ADD 

ADC n 

Immediate with carry 

:4s 

yy flCI 

ADC n 

Immediate with carry 

:4e 

Indica-tes. an 

optional mnemonic <%ee text>. 
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3.9.8 Ei3h+> Bit, Arithmetic and Logical <Continued> 


MNEMONIC 

ZILOG 

R SUB 

SUB R 

d IX SUB 

SUB <IX+d> 

d IV SUB 

SUB <IX+d> 

R SBB 

SBC R 

d IX SBB 

SBC <IX+d> 

d IV SBB 

SBC <IV+d> 

R ANA 

AND R 

d IX ANA 

AND <IX+d> 

d IV ANA 

AND <IV+d> 

R ORA 

OR R 

d IX ORA 

OR <IX+d> 

d IV ORA 

OR <IV+d> 

R XRA 

XOR R 

d IX XRA 

XOR <IX+d) 

d IV XRA 

XOR <IV+d> 

R CMP 

CP R 

d IX CMP 

CP <IX+d> 

d IV CMP 

CP <IV+d> 

R INR 

INC R 

d IX INR 

INC <IX+d> 

d IV INR 

INC <IV+d> 

R DCR 

DEC R 

d IV DCR 

DEC ClX+d) 

d IV DCR 

DEC <IV+d> 

yy # ANA 

AND yy 

yy ANI 

AND yy 

yy # XRA 

XOR yy 

=+« yy XRI 

XOR yy 

yy # CMP 

CP yy ' 

•4' yy CPI 

CP yy 

yy # ORA 

OR yy 

He yy ORI 

OR yy 

yy # SUB 

SUB yy 

yy SUI 

SUB yy 

yy # SBB 

SBC A^yy 

■* yy SBI 

SBC Aj yy 


REMARKS 

Subtract resiiater 
Subtract memory indirect 

Register with carry 
Memory indirect with carry 

Logical and register 
Memory indirect 

Loaical OR realster 
Memory indirect 

Ei<clusive OR register 
Memory indirect 

Reaister compare 
Memory indirect 

Reaister increment 


Reaister decrement 


Accumulator immediate 


* Indicates an optional mnemonic <see text> 
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3.9.9 General Purpose Arithmetic and CPU Control 


MNEMONIC 

ZILOG 

REMARKS 

DBA 

DAA 

Decimal adjust accumulator 

CMA 

CPL 

Complement accumulator loaical 

NEG 

NEG 

Neaate accumulator 

CMC 

CCF 

Compliment carry flaa 

STC 

SCF 

Set carry flaa 

NOP 

NOP 

No operation 

HLT 

HALT 

Halt CPU 

DI 

DI 

Disable interrupts 

El 

El 

Eable interrupts 

0 IM 

IM 0 

Set interrupt mode 

1 IM 

IM 1 


2 IM 

IM 2 


9.10 Sixteen 

Bit Arithmetic 

Group 


RP 

DAD 

ADD 

HL^ RP 

RP 

CAD 

ADC 

HL^RP 

RP 

SBC 

ADD 

IX^ RP 

RP 

IV DAD 

ADD 

IV. PP 

RP 

INX 

INC 

RP 

IX 

INX 

INC 

IX 

IV 

INX 

INC 

IV 

RP 

DCX 

DEC 

RP 

IX 

DCX 

DEC 

IX 

IV 

DCX 

DEC 

IV 


3. 

9.It Rotate 

and Shift Group 


RLC 

RLCA 


RAL 

RLA 



RRC 

RRCA 


RAR 

RRA 



R SCL 

RLC 

R 


M SCL 

RLC 

<HL> 


d IX SCL 

RLC 

<IX.d> 


d I V SCL 

RLC 

<IV.d> 

:4c 

R RL 

RL 

R 

:4s 

R SRC 

RRC 

R 

:4c 

R RR 

RR 

R 

:4c 

R SLA 

SLA 

R 

j4c 

R SRA 

SRA 

R 

:4c 

R SRL 

SRL 

R 

:4c 

RLD 

RLD 


:4« 

RRD 

RRD 



16 bit add <RP not= IV> 

Add with carry <RP not* IV> 

Add register pair to IX 
Add register pair to IV 
16 bit increment 


16 bit decrement 


Accumulator left circular 
Left circular throu^ carry 
Acctmiulator riaht circular 
Riaht circular thrcuah carry 
Reaister left circul«^ 

Memory left circular 

Left circular memory indirect 

Reaister left throuah carry 
Reaister riaht circular 
Reaister riaht throu^n carry 
Left linear bit 0 =0 
Riaht linear bit 7 = extended 
Riaht linear bit 7 * 0 
Left decimal 
Riaht decimal 


=+= Indicates an optional mnemonic <see text> 
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3.9.12 Bit. Manipulation <b=bit number 0 <= b <* 7> 

MHEMONIG 2IL0G REMRRKS 

* R b BIT BIT b..R Zero fXaa - bit b of R 

M b BIT BIT b. <HL> 

* d IX b BIT BIT b.<IX+d> 

■* d IV b BIT BIT b. •:iV+d> 

^ R b STB SET b^R SET <1> bit b of R or memory 

=4* M b STB SET b^ <HL> 

* d IX b STB SET b.<IX+d> 

■* d IV b STB SET b. <IV+d> 

=4* R b RES RES b.R Reset <0> bit b of R or memory 

=4= M b RES RES b. <HL> 

d IX b RES RES b. < IX+d> 

=4c d IV b RES RES b.<IV+d> 


3.9.13 Input / Output Group <P*Port number R=»Reaister) 



P IN 

IN fl. <P> 


R CIN 

IN R><C> 


INI 

INI 


INIR 

INIR 


IND 

IND 


INDR 

INDR 


P OUT 

OUT <P>^fl 


R COUT 

OUT <C>^R 


OUT I 

OUT! 


OUTIR 

OUTIR 

:4< 

OUTD 

OUTD 

:4e 

OUTDR 

OUTDR 


Input to accumulator 

Register R from port <C> 

Input and increment 
Repeat input and increment 

Input and decrement 
Repeated input and decrement 

Output accumulator 

Register R to port <C> 

Output and increm«it 
Repeated output and increment 

Output and decrement 
Repeated output and decrement 


•'4' Indicates an optional mnemonic ^see text^ 
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3.9.14 Jump Group <U=address dest*deatination +-128 bytes? 



MNEMONIC 

2IL0G 

REMARKS 




U JMP 

JP 

V 

Jump 




U JNC 

JP 

NC,U 

No carry 



Sfc 

U JC 

JP 

C. U 

Carry 



lit 

U JNZ 

JP 

NZ^ U 

Not Zero 




U JZ 

JP 

2.U 

Zero 



i¥ 

U JPO 

JP 

P0> 0 . 

Parity odd 



iit 

U JPE 

JP 

PE^U 

Parity even 



i¥ 

U JP 

JP 

P.U 

Positive 



i¥ 

U JM 

JP 

M^U 

Negative 



i¥ 

dest JR 

JP 

d 

Jump relative 



¥ 

dest JRC 

JR 

C.d 

Carry 



i¥ 

dest JRNC 

JR 

HC.d 

No carry 



¥ 

dest JR2 

JR 

Z.d 

Zero 



i¥ 

dest JRNZ 

JR 

NZ^d 

Not zero 




PCHL 

JP 

<HL? 

Branch to location 

in 

HL 

i¥ 

PCIX 

JP 

<IX? 

Branch to location 

in 

IX 

¥ 

PCIV 

JP 

■;iv? 

Branch to location 

in 

IV 

i¥ 

dest DJNZ 

DJNZ^d 

Decrement and Jump 

if 

not zero 


3.9.15 Cal 1 and Return Group <U=addres.s> 



U CALL 

CALL U 

Subroutine 

transfer 

i¥ 

U CMC 

CALL NC^U 

No carry 


¥ 

U CC 

CALL C.U 

Carry 


:4« 

U CNZ 

CALL NZ.U 

Not zero 


:4c 

U CZ 

CALL Z.U 

Zero 


:4« 

U CPE 

CALL PE^U 

Parity even 


¥ 

U CPO 

CALL PO^U 

Parity odd 


% 

U CP 

CALL P.U 

Positive 


:4c 

U CM 

CALL M>U 

Negative 


:4« 

RET 

RET 

Return 



RNC 

RET NC 

No carry 


:4< 

RC 

RET C 

Carry 


:¥ 

RNZ 

RET NZ 

Not Zero 


J4c 

RZ 

RET 2 

Zero 


’4c 

RPE 

RET PE 

Parity even 



RPO 

RET PO 

Parity odd 


’•¥ 

RP 

RET P 

Positive 


:4c 

RM 

RET M 

Ne^tive 



RETI 

RETI 

Return from 

interrupt 


RETN 

RETN 

Return from 

non-masKab1e 





interrupt 


n RST 

RST n 

Restart 



* Indicates an optional mnemonic Csee text?. 
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This glossary contains most of the word definitions that have been 
released with OmniFORTH. Please note that a particular implementa¬ 
tion of OmniFORTH may not include all of the words shown in this 
glossary. Words that are illustrated are from fig-FORTH Release 1 
plus additional words have been added to provide the user with a 
more powerful vocabulary. 

The definitions are presented in the order of their ASCII sort. 

Unless otherwise noted, all references to numbers are for 16 bit 
signed integers in a stack that is 16 bits wide. Double integers 
are 32 bits long and take two stack locations, the most significant 
part including sign is on top of the stack. 

The glossary illustrates the first line of each entry with the word 
followed by a description of the action of the procedure on the stack. 
The symbols indicate the order in which input parameters have been 
placed on the stack. In this notation, the top of the stack is to the 

right. Three dashes " ” indicate the execution point and any 

parameters left on the stack are listed. 


Symbols include: 

addr 16 bit memory address 

b 8 bit byte with zeros in upper 8 bits 

c 7 bit ASCII character with zeros in upper 9 bits 

d 32 bit signed double integer with most significant 

part including sign on top of stack 
f Boolean flag. 0=false, non-zero=true 

ff Boolean false flag. f=0 

n 16 bit signed integer number 

u 16 bit unsigned integer number 

tf Boolean true flag. f=non-zero 


The capital letters shown on the right indicate FORTH definition 
characteristics: 


C 

E 

LO 

LI 

P 

U 


May only be used within a colon definition. A digit 
indicates number of memory addresses used. 

Intended for execution only. 

Level zero definition of FORTH-78. 

Level one definition of FORTH-78. 

Has precedence bit set. Will execute even when compiling. 
A user variable. 



Store 16 bits of n at address. Pronounced "store". 


Save the stack position in CSP. Used as part of the 
compiler security. 


dl — d2 

Generate from a double number dl, the next ascii 
character which is placed in an output string. 
Result d2 is the quotient after division by BASE, 
and is maintained for further processing. Used 
between <# and #> . See #S. 


d - addr count 

Terminates numeric output conversion by dropping d, 
leaving the text address and character count 
suitable for TYPE. 


— n 

A constant returning the number of disk buffers alio 
cated. For the disk I-O routines to work correctly, 
#BUF must be greater than 1. 


Special output formatting. Converts one decimal 
digit and holds it in PAD. 


Special output formatting. Converts one HEX digit 
and holds it in PAD. 



dl 


d2 


LO 


✓ #S 

Generates ascii text in the text output buffer, by the 
use of #, until a zero double number n2 results. Used 
Used between < # and #> . 


addr P,L0 

Used in the form: 

' nnnn 

Leaves the parameter field address of dictionary word 
nnnn. As a compiler directive, executes in a compiler 
directive, executes in a colon-definition to compile 
the address as a literal. If the word is not found 
after a search of CONTEXT and CURRENT, an appropriate 
error message is given. Pronounced "tick". 


^ ( — P,L0 

Used in the form: 

( cccc) 

Ignore a comment that will be delimited by a right 
parenthesis on the same line. May occur during 
execution or in a colon-definition. A blank after 
the leading parenthesis is required. 


/ (.") — C+ 


The run-time procedure, compiled by ." which transmits 
the following in-line text to the selected output 
device. See ." 


The run-time procedure, compiled by ;C0DE, that 
rewrites the code field of the most recently defined 
word to point to the following machine code sequence. 
See ;C0DE. 


✓ (;C0DE) 


C 



C+LOOP) 


(ABORT) 


(DO) 


(FIND) 


(LINE) 


(LOOP) 


(NUMBER) 


n 

The run-time procedure compiled by +LOOP, which 
increments the loop index by n and tests for loop 
completion. See +L00P. 


Executes after an error when WARNING is -1. This 
word normally executes ABORT, but may be altered 
(with care) to a user's alternative procedure. 


The run-time procedure compiled by DO which moves the 
loop control parameters to the return stack. See DO. 


addrl addr2 —- pfa b tf (ok) 
addrl addr2 — ff (bad) 

Searches the dictionary starting at the name field 
address addr2, matching to the text at addrl. Returns 
parameter field address, length byte of name field 
and boolean true for a good match. If no match is 
found, only a boolean false is left. 


nl n2 — addr count 

Convert the line number nl and the screen n2 to the 
disc buffer address containing the data. A count of 
64 indicates the full line text length. 


The run-time procedure compiled by LOOP which 
increments the loop index and tests for loop 
completion. See LOOP. 


dl addrl — d2 addr2 

Convert the ascii text beginning at addrl+1 with 
regard to BASE. The new value is accumulated into 
double number dl, being left as d2. .Addr2 is the 
address of the first unconvertable digit. Used by 
NUMBER. 



* 


nl n2 


prod 


LO 




Leave the signed product of two signed numbers. 


*/ nl n2 n3 — n4 LQ 

Leave the ratio n4 = nl*n2/n3 where all are signed 
numbers. Retention of an intermediate 31 bit 
product permits greater accuracy than would be 

sequence: 

n3 / 


n4 n5 LO 

n5 and remainder n4 of the 
A 31 bit intermediate product 


+ nl n2 — sum LO 

Leave the sum of nl+n2. 


n addr — LO 

Add n to the value at the address. Pronounced / 

"plus-store". •; 


nl n2 — n3 

Apply the sign of n2 to nl, which is left as n3. 


+BUF addl ■— addr2 f 

Advance the disc buffer address addrl to the address 
of the next buffer addr2. Boolean f is false when 
addr2 is the buffer presently pointed to by variable 
PREV. 


available with the 
nl n2 * 


*/M0D nl n2 n3 — 

Leave the quotient 
operation nl*n2^3 
is used as for */. 



nl 

addr nZ 


(run) 

(compile) 


P,C2 


Used in a colon-definition in the form: 

00 ... nl +L00P 

At run-time, +L00P selectively controls branching back 
to the corresponding DO based on nl, the loop index 
and the loop limit. The signed increment nl is added 
to the index and the total compared to the limit. The 
branch back to DO occurs until the new index is equal 
to or greater than the limit (nl >0), or until the new 
index is equal to or less than the limit (nl< 0). Upon 
exiting the loop, the parameters are discarded and 
execution continues ahead. 

At compile time, +L00P compiles the run-time word 
(+L00P) and the branch offset computed from HERE to the 
address left on the stack by DO. n2 is used for compile 
time error checking. 


n — addr 

Leave the memory address relative by n to the origin 
parameter area, n in the minimum address unit, 
either byte or word. This definition is used to 
access or modify the boot-up parameters at the origin 
area. 


n — LO 

Store n into the next available dictionary memory 
cell, advancing the dictionary pointer, (comma) 


nl n2 — diff LO 

Leave the difference of nl-n2. 


P,L0 


Continue interpretation with the next disc screen, 
(pronounced next-screen). 



nl — nl (if zero) 

nl — nl nl (non-zero) 

Reproduce nl only if it is non-zero. This is 
usually used to copy a value just before IF, to 
eliminate the need for an ELSE part to drop it. 


— pfa b tf (found) 

— ff (not found) 

Accepts the next text word (delimited by blanks) in 
the input strean to HERE, and searches the CONTEXT 
and then CURRENT vocabularies for a matching entry. 
If found, the dictionary entry's parameter field 
address, is length byte, and a boolean true is left. 
Otherwise, only a boolean false is left. 


addr nl — addr n2 

Adjusts the character count nl of a text string 
beginning address to suppress the output of trailing 
blanks, i.e. the characters at addr+nl to addr+n2 
are blanks. 


n — 

Print a number from a signed 16 bit two's complement 
value, converted according to the numeric BASE. A 
trailing blanks follows. Pronounced "dot". 


n — 

Outputs n as an unsigned number per the present BASE. 


Used in the form: 

." CGCC" 

Compiles an in-line string cccc (delimited by the 
trailing ") with an execution procedure to transmit 
the text to the selected output device. If executed 
outside a definition. ." will immediately print the 
text until the final ". The maximum number of 
characters may be an installation dependent value. 
See (."). 



.4H 


.CPU 


.LINE 


.R 


/ 


/MOD 


0 1 2 3 


Outputs to console n as two HEX digits. Any 
overflow is lost. 


n — 

Outputs to console n as four HEX digits. 


Prints the processor name (i.e., 8080) from 0RIG+22H 
encoded as a 32 bit, base 36 integer. 


line scr — 

Print on the terminal device, a line of text from the 
disc by its line and screen number. Trailing blanks 
are suppressed. 


nl n2 — 

Print the number nl right aligned in a field whose 
width is n2. No following blank is printed. 


nl n2 — quot 

Leave the signed quotient of nl/n2. 


nl n2 — rem quot 

Leave the remainder and signed quotient of nl/n2. 
The remainder has the sign of the dividend. 


— n 

These small numbers are used so often that it is 
attractive to define them by name in the dictionary 
as constants. 



0 = 


OBRANCH 


1 + 


2 + 


2 ! 


2 @ 


2DUP 


Leave a true flag if the number is less than zero 
(negative), otherwise leave a false flag. 


n - f 

Leave a true flag if the number is equal to zero, 
otherwise leave a false flag. 


f — 

The run-time procedure to conditionally branch. If 
f is false (zero), the following in-line parameter 
is added to the interpretive pointer to branch 
ahead or back. Compiled by IF, UNTIL, and WHILE. 


nl — n2 
Increment nl by 1. 


nl - n2 

Leave nl incremented by 2. 


nlow nhigh addr — 

32-bit store, nhigh is stored at addr; nlow is 
stored at addr+2. 

addr —- nlow nhigh 

32-bit fetch, nhigh is fetched addr; nlow is 
fetched from addr+2. 


n2 nl — n2 nl n2 nl 

Duplicates the top two values on the stack. 
Equivalent to OVER OVER. 



P,E,LO 


y : 

Used in the form called a colon-definition: 

: cccc ... ; 

Creates a dictionary entry defining cccc as equivalent 
to the following sequence of FORTH word definitions 
until the next or ';C0DE'. The compiling 
process is done by the text interpreter as long as 
STATE is non-zero. Other details are that the CONTEXT 
vocabulary is set to the current vocabulary and that 
words with the precedence bit set (P) are executed 
rather than being compiled. 


PcC,L0 


Terminate a colon-definition and stop further 
compilation. Compiles the run-time ;S. 


;C0DE — P,C,L0 

Used in the Form: 

: cccc .... ;C0DE assembly mneumonics 

Stop compilation and terminate a new defining word 
cccc by compiling (;C0DE). Set the CONTEXT vocabulary 
to ASSEMBLER, assembling to machine code the following 
mneumonics. 

When cccc later executes in the form: 
cccc nnnn 

the word nnnn will be created with its execution 
procedure given by the machine code following cccc. 

That is, when nnnn is executed, it does so by 
jumping to the code after nnnn. An existing defining 
word must exist in cccc prior to ;C0DE. 


/ ;S — P,L0 

Stop interpretation of a screen. ;S is also the 
run-time word compiled at the end of a colon- 
definition which returns execution to the calling 
procedure. 



Leave a true flag if nl is less than n2; otherwise 
leave a false flag. 


Setup for pictured numeric output formatting using 
the words: 

< # # #S SIGN #> 

The conversion is done on a double number producing 
text at PAD. 


Used within a colon-definition: 

: cccc < BUILDS ... 

D0ES> ... ; 

Each time cccc is executed,<BUILDS defines a new 
word with a high-level execution procedure. 
Executing cccc in the form: 

cccc nnnn 

uses<BUILDS to create a dictionary entry for nnnn 
with a call to the D0ES> part for nnnn. When nnnn 
is later executed, it has the address of its 
parameter area on the stack and executes the words 
after_DOES> in cccC. <BUILDS and D0ES> allow 
run-time procedures to written in high-level rather 
than in assembler code (as required by ;C0DE). 


nl n2 — f 

Leave a true flag if nl=n2; otherwise leave a 
false flag. 


nl n2 — f 

Leave a true flag if nl is greater than n2; 
Otherwise a false flag. 



Remove a number from the computation stack and 
place as the most accessible on the return stack. 
Use should be balanced with R> in the same 
definition. 


^ ? addr — 

Print the value contained at the address in free 
format according to the current base. 


^ ?C0MP 

Issue error message if not compiling. 


/ ?CSP 

Issue error message if stack position differs from 
value saved in CSP. 


TERROR f n — 

Issue an error message number n, if the bolean 
flag is true. 


^ ?EXEC 

Issue an error message if not executing. 


TLOADING 

Issue an error message if not loading. 


/ TPAIRS nl n2 —- 

Issue an error message if nl does not equal n2. The 
message indicates that compiled conditionables do 
not match. 



?s 


y 


Outputs the contents of the parameter stack in 
HEX and DECIMAL. 


/ 7STACK 

Issue an error message if the stack is out of bounds. 
This definition may be installation dependent. 


^ 7TERMINAL — f . 

Perform a test of the terminal keyboard for actuation 
of the break key. A true flag indicates actuation. 

This definition is installation dependent. 

\/ @ addr — n LO 

Leave the 16 bit contents of address. 

/ ABORT ™ ^ LO 

Clear the stacks and enter the execution state. 

Return control of the operators terminal, printing 
a message appropriate to the installation. 

/ ABS n - u LO 

Leave the absolute value of n as u. 


AGAIN addr n (compiling) P,C2,L0 

Used in a colon-definition in the form: 

BEGIN ... AGAIN 

At run-time, AGAIN forces execution to return to 
corresponding BEGIN. There is no effect on the 
stack. Execution cannot leave this loop (unless 
R> DROP is executed one level below). 

At compile time, AGAIN compiles BRANCH with an 
offset from HERE to addr. n is used for 
compile-time error checking. 



^ ALLOT 


n 


LO 


Add the signed number to the dictionary pointer DP. 
May be used to reserve dictionary space or re-origin 
memory, n is with regard to computer address type 
(byte or word). 


1 / AND nl n2 — n2 LO 

Leave the bitwise logical and of nl and n2 as n3. 

8/BUF —- n 

This constant leaves the number of bytes per disc 
buffer, the byte count read from disc by BLOCK. 


B/SCR — n 

This constant leaves the number of blocks per editing 
screen. By convention, an editing screen is 1024 
bytes organized as 16 lines of 64 characters each. 


BACK addr — 

Calculate the backward branch offset from HERE to 
addr and compile into the next available dictionary 
memory address. 


BASE — addr U,L0 

A user variable containing the current number base 
used for input and output conversion. 



^ BEGIN 


P,LO 


— addr n (compiling) 

Occurs in a colon-definition in form: 

BEGIN ... UNTIL 

BEGIN ... AGAIN 

BEGIN ... WHILE ... REPEAT 

At run-time, BEGIN marks the start of a sequence that 
may be repetitively executed. It serves as a return 
point from the corresponding UNTIL, AGAIN or REPEAT. 
When executing UNTIL, a return to BEGIN will occur if 
the top of the stack is false; for AGAIN and REPEAT a 
return to BEGIN always occurs. 

At compile time BEGIN leaves its return address and n 
for compiler error checking. 


/ BL 


— c 

A constant that leaves the ascii value for "blank". 


/ BLANKS addr count — 

Fill an area of memory beginning at addr with blanks. 


BLK — addr U,L0 

A user variable containing the block number being 
interpreted. If zero, input is being taken from 
the terminal input buffer. 


BLOCK n — addr LO 

Leave the memory address of the block buffer 
containing block n. If the block is not already 
in memory, it is transferred from disc to whichever 
buffer was least recently written. If the block 
occupying that buffer has been marked as updated, 
it is rewritten to disc before block n is read 
into the buffer. See also BUFFER, R/W UPDATE 
FLUSH 



BRANCH 


BUFFER 


C! 


C, 


C/L 


C@ 


The run-tirae procedure to unconditionany branch. 
An in-line offset is added to the interpretive 
pointer IP to branch ahead or back. BRANCH is 
compiled by ELSE, AGAIN, REPEAT. 


n — addr 

Obtain the next memory buffer, assigning it to block 
n. If the contents of the buffer is marked as 
updated, it is written to the disc. The block is 
not read from the disc. The address left is the 
first cell within the buffer for data storage. 


b addr — 

Store 8 bits at address. On word addressing 
computers, further specification is necessary 
regarding byte addressing. 


b - — 

Store 8 bits of b into the next available dictionary 
byte, advancing the dictionary pointer. This is 
only available on byte addressing computers, and 
should be used with caution on byte addressing 
mini-computers. 


— n 

Constant leaving the number of characters per line; 
used by the editor. 


addr —- b 

Leave the 8 bit contents of memory address. On word 
addressing computers, further specification is 
needed regarding byte addressing. 


pfa — cfa 


CFA 


Convert the parameter field address of a definition 
to its code field address. 



CMOVE 


COLD 


COMPILE 


CONSTANT 


CONTEXT 


COUNT 


from to count - 

Move specified quantity of bytes beginning at address 
(from) to address (to). The contents of address from 
moved first proceeding toward high memory. Further 
specification is necessary on word processing 
computers. 


The cold start procedure to adjust the dictionary 
pointer to the minimum standard and restart via 
ABORT. May be called from the terminal to remove 
application programs and restart. 


When the word containing COMPILE executes, the 
execution address of the word following COMPILE is 
copied (compiled) into the dictionary. This allows 
specific compilation situations to be handled in 
addition to simply compiling an execution address 
(which the interpreter already does). 


n — 

A defining word used in the form: 
n CONSTANT cccc 

to create word cccc, with its parameter field 
containing n. When cccc is later executed, it will 
push the value of n to the stack. 


— addr 

A user variable containing a pointer to the 
vocabulary within which dictionary searches 
will first begin. 


addrl — addr2 n 

Leave the byte address addr2 and byte count n of 
a message text beginning at address addrl. It is 
presumed that the first byte at addrl contains the 
text byte count and the actual text starts with the 
second byte. Typically COUNT is followed by TYPE. 



Transmit a carriage return and Tine feed to the 
selected output device. 


A defining word used in the form: 

CREATE cccc 

by such words as CODE and CONSTANT to create a 
dictionary header for a FORTH definition. The 
code field contains the address of the words 
parameter field. The new word is created in 
the CURRENT vocabulary. 


— addr 

A user variable temporarily storing the stack 
pointer position, for compilation error checking 


dl d2 —- dsum 

Leave the double number sum of two double numbers 


dl n — d2 

Apply the sign of n to the double number dl, 
leaving it as d2. 


d —- 

Print a signed double number from a 32 bit two's 
complement value. The high-order 16 bits are most 
accessable on the stack. Conversion is performed 
according to the current BASE. A blank follows. 
Pronounced D-dot. 


d n --- 

Print a signed double number d right aligned in a 
field n characters wide. 



DECIMAL 


DEFINITIONS 


DENSITY 


DIGIT 


DISK-ERROR 


DLIST 


Leave the absolute value ud of a double number. 


Set the numeric conversion BASE for decimal 
input-output. 


Used in the form: 

cccc DEFINITIONS 

Set the CURRENT vocabulary to the CONTEXT vocabulary. 
In the example, executing vocabulary name cccc made 
it the CONTEXT vocabulary and executing DEFINITIONS 
made both specify vocabulary cccc. 


— addr 

A variable used by the disk interface. 

0 = single density; 1 - double density. 


c nl — n2 tf (ok) 
c nl -— ff (bad) 

Converts the ascii character c (using base nl) to its 
binary equivalent n2, accompanied by a true flag. If 
the conversion is invalid, leaves only a false flag. 


— addr 

A variable used by the disk interface, containing the 
disk status for the last sector read or written. 

0 means no error. 


List the names of the dictionary entries in the 
CONTEXT vocabulary. 



/ DLITERAL 


^ DMINUS 


^ DO 


DOES> 


d — d (executing) 

d (compiling) P 

If compiling, compile a stack double number into 
a literal. Later execution of the definition 
containing the literal will push it to the stack. 

If executing, the number will remain on the stack. 


dl -- d2 

Convert dl to its double number two's complement. 


nl n2 — (execute) 

addr n — (compile) P,C2,L0 

Occurs in a colon-definition in form: 

DO ... LOOP 
DO ... +L00P 

At run time, DO begins a sequence with repetitive 
execution controlled by a loop limit nl and an 
index with initial value n2. DO removes these from 
the stack. Upon reaching LOOP the index is 
incremented by one. Until the new index equals or 
exceeds the limit, execution loops back to just 
after DO; otherwise the loop parameters are 
discarded and execution continues ahead. Both nl 
and n2 are determined at run-time and may be the 
result of other operations. Within a loop 'I' 
will copy the current value of the index to the 
stack. See I, LOOP, +L00P, LEAVE. 

When compiling within the colon-definition, DO 
compiles (DO), leaves the following address addr 
and n for later error checking. 


LO 


A word which defines the run-time action within a 
high-level defining word. DOES > alters the code 
of field and first parameter of the new word to 
execute the sequence of compiled word addresses 
following DOES> . Used in combination with 
<BUILDS. When the D0ES> part executes it 
begins with the address of the first parameter 
of the new word on the stack. This allows 
interpretation using this area or its contents. 
Typical uses include the FORTH assembler, multi¬ 
dimensional arrays, and compiler generation. 



DP 


<r 


- addr U,L 

A user variable, the dictionary pointer, which 
contains the address of the next free memory 
above the dictionary. The value may be read by 
HERE and altered by ALLOT. 


DPL - addr U,L0 

A user variable containing the number of digits to 
the right of the decimal on double integer input. 

It may also be used hold output column location of 
a decimal point, in user generated formating. The 
default value on single number input is -1. 


/ DRO 

^ DRl 


Installation dependent commands to select disc drives, 
by presetting OFFSET. The contents of OFFSET is added 
ta the block number in BLOCK to allow for this 
selection. Offset is supressed for error text so that 
it may always originate from drive 0. 


DRIVE — addr 

A variable used by disk interface, containing the disk 
drive number (0 to MXORV) used on the last sector 
read or written. 


^ DROP n — LO 

Drop the number from the stack. 

/ DUMP addr n — LO 

Print the contents of n memory locations beginning 
at addr. Both addresses and contents are shown in 
HEX and ASCII. 


/ DUP 


n — n n 

Duplicate the value on the stack. 


LO 



ELSE 


EMIT 


EMPTY-BUFFERS 


ENCLOSE 


addrl nl —- addr2 n2 (compiling) 

Occurs within a colon-definition in the form: 

IF ... ELSE ... ENDIF 

At run-time, ELSE executes after the true part 
following IF. ELSE forces execution to skip over 
the following false part and resumes execution 
after the ENDIF. It has no stack effect. 

At compile-time ELSE emplaces BRANCH reserving a 
branch offset, leaves the address addr2 and n2 for 
error testing. ELSE also resolves the pending 
forward branch from IF by calculating the offset 
from addrl to HERE and storing at addrl. 


c — 

Transmit ascii character c to the selected output 
device. OUT is incremented for each character 
output. 


Mark all block-buffers as empty, not necessarily 
affecting the contents. Updated blocks are not 
written to the disc. This is also an initialization 
procedure before first use of the disc. 


addrl c — 

ddrl nl n2 n3 

The text scanning primitive used by WORD. From 
the text address addrl and an ascii delimiting 
character c, is determined the byte offset to 
the first non-delimiter character nl, the offset 
to the first delimiter after the text n2, and 
the offset to the first character not included. 
This procedure will not process past an ascii 
'null', treating it as an unconditional delimiter. 


END 


This is an 'alias' or duplicate definition for 
UNTIL. 



/ ENDIF 


P,CO,LO 


/ ERASE 


/ ERROR 


y EXECUTE 


y EXPECT 


addr n - (compile) 

Occurs in a colon-definition in form: 

IF ... ENDIF 

IF ... ELSE ... ENDIF 

At run-time, ENDIF serves only as the destination of 
a forward branch from IF or ELSE. It marks the 
conclusion of the conditional structure. THEN is 
another name for ENDIF. Both names are supported 
in FORTH. See also IF and ELSE. 

At compile-time, ENDIF computes the forward branch 
offset from addr to HERE and stores it at addr. n 
is used for error tests. 


addr n —- 

Clear a region of memory to zero from addr over n 
addresses. 


line — in blk 

Execute error notification and restart of system. 
WARNING is first examined. If 1, the text of line 
n, relative to screen 27 of drive 0 is printed. 

This line number may be positive or negative, and 
beyond just screen 27. If WARNING=0, n is just 
printed as a message number (non disc installation). 

If WARNING is -1, the definition (ABORT) is executed, 
which executes the system ABORT. The user may 
cautiously modify this execution by altering (ABORT) . 
fig-FORTH saves the contents of IN and BLK to assist 
in determining the location of the error. Final 
action is execution of QUIT. 


addr — 

Execute the definition whose code field address is 
on the stack. The code field address is also called 
the compilation address. 


addr count — LO 

Transfer characters from the terminal to address, 
until a "return" or the count of characters have 
been received. One or more nulls are added at the 
end of the text. 



FENCE 


FILL. 


FIRST 


FLD 


FLUSH 


FORGET 


addr 

A user variable containing an address below which 
FORGETting is trapped. To forget below this 
point the user must alter the contents of FENCE. 


addr quan b — 

Fin memory at the address with the specified 
quantity of bytes b. 


— n 

A constant that leaves the address of the first 
(lowest) block buffer. 


— addr 

A user variable for control of number output field 
width. Presently unused in FORTH. 


Write all UPOATEd disk buffers to disk. Should be used 
after editing, before dismounting a disk, or before 
exiting FORTH. 


Executed in the form; 

FORGET cccc 

Deletes definition named cccc from the dictionary 
with all entries physically following it. In 
fig-FORTH, an error message will occur if the 
CURRENT and CONTEXT vocabularies are not currently 
the same. 



forth 

The name of the primary vocabulary. Execution 
makes FORTH the CONTEXT vocabuTary. Until 
additional user vocabularies are defined, new 
user definitions become a part of FORTH. FORTH 
is immediate, so it will execute during the 
creation of a colon-definition, to select this 
vocabulary at compile time. 


HERE - addr 

Leave the address of the next available 
dictionary location. 


HEX 

Set the numeric conversion base to sixteen 
(hexadecimal). 


HLD — addr 

A user variable that holds the address of the 
latest character of text during numeric output 
conversion. 


HOLD c — 

Used between <# and # > to insert an ascii 
character into a pictured numeric output string, 
e.g. 2E HOLD will place a decimal point. 


I — n 

Used within a DO-LOOP to copy the loop index to 
the stack. Other use is implementation dependent. 
See R. 


ID. addr — 

Print a definition's name from its name field 
address. 



f - (run-time) 

— n (compile) 

Occurs in a colon-definition in the forms: 

IF (tp) ... ENDIF 

IF (tp) ... ELSE (fp) ... ENDIF 

At run-time, IF selects execution based on a 
boolean flag. If f is true (non-zero), execution 
continues ahead thru the true part. If f is false 
(zero), execution skips till just after ELSE to 
execute the false part. After either part, 
execution resumes after ENDIF. ELSE and its false 
part are optional.; if missing, false execution 
skips to just after ENDIF. 

At compile-time IF compiles OBRANCH and reserves 
space for an offset at addr. addr and n are used 
later for resolution of the offset and error 
testing. 


Mark the most recently made definition so that 
when encountered at compile time, it will be 
executed rather than being compiled, i.e. the 
precedence bit in its header is set. This method 
allows definitions to handle unusual compiling 
situations, rather than build them into the 
fundamental compiler. The user may force 
compilation of an immediate definition by 
proceeding it with [COMPILE] . 


addr 

A user variable containing the byte offset within 
the current input text buffer (terminal or disc) 
from which the next text will be accepted. WORD 
uses and moves the value of IN. 


from to — 

Print the first line of each screen over the range 
from, to. This is used to view the comment lines 
of an area of text on disc screens. 



/ INTERPRET 


/ KEY 


y LATEST 


/ LEAVE 


LFA 


/ LIMIT 


The outer text interpreter which sequentially 
executes or compiles text from the input stream 
(terminal or disc) depending on STATE. If the 
word name cannot be found after a search of 
CONTEXT and then CURRENT it is converted to a 
number according to the current base. That also 
failing, an error message echoing the name with a 
" ?" will be given. Text input will be taken 
according to the convention for WORD. If a 
decimal point is found as part of a number, a 
double number value will be left. The decimal 
point has no other purpose than to force this 
action. See NUMBER. 


— c LO 

Leave the ascii value of the next terminal key 
struck. 


— addr 

Leave the name field address of the topmost word 
in the CURRENT vocabulary. 


C,L0 

Force termination of a DO-LOOP at the next 
opportunity by setting the loop limit equal to 
the current value of the index. The index itself 
remains unchanged, and execution proceeds normally 
until LOOP or +L00P is encountered. 


pfa — Ifa 

Convert the parameter field address of a dictionary 
definition to its link field address. 


- n 

A constant leaving the address just above the highest 
memory available for a disc buffer. Usually this is 
the highest system memory. 



y LIST n — 

Display the ascii text of screen n on the selected 
output device. SCR contains the screen number 
during and after this process. 


^ LIT — n 

Within a colon-definition, LIT is automatically 
compiled before each 16 bit literal number 
encountered in input text. Later execution of 
LIT causes the contents of the next dictionary 
address to be pushed to the stack. 


LITERAL n —- (compiling) 

If compiling, then compile the stack value n as 
a 16 bit literal. This definition is immediate 
so that is will execute during a colon definition. 
The intended use is: 

XXX calculate LITERAL ; 

Compilation is suspended for the compile time 
calculation of a value. Compilation is 
resumed and LITERAL compiles this value. 


v/ LOAD n — 

Begin interpretation of screen n. Loading will 
terminate at the end of the screen or at ;S. See 
;S and —> . 


/ LOOP addr n — (compiling) 

Occurs in a colon-definition in form: 

DO ... LOOP 

At run-time, LOOP selectively controls branching 
back to the corresponding 00 based on the loop 
index and limit. The loop index is incremented by 
one and compared to the limit. The branch back to 
DO occurs until the index equals or exceeds the 
limit; at that time, the parameters are discarded 
and execution continues ahead. 

At compile-time, LOOP compiles (LOOP) and uses 
addr to calculate an offset to DO. n is used 
for error testing. 


LO 


C2,L0 


P,C2,L0 


LO 


P,C2,L0 



J M* 


nl n2 


d 


/ M/ 


^ M/MOD 


/ MAX 


/ MESSAGE 


/ MIN 


/ MINUS 


A mixed magnitude math operation which leaves the 
double number signed product of two signed number. 


d nl — n2 n3 

A mixed magnitude math operator which leaves the 
signed remainder n2 and signed quotient n3, from 
a double number dividend and divisor nl. The 
remainder takes its sign from the dividend. 


udl u2 — u3 ud4 

An unsigned mixed magnitude math operation which 
leaves a double quotient ud4 and remainder u3, 
from a double dividend udl and single divisor u2. 


nl n2 — max LO 

Leave the greater of two numbers. 


n — 

Print on the selected output device the text of 
line n relative to screen 27 of drive 0. n may 
be positive or negative. MESSAGE may be used to 
print incidental text such as report headers. 

If WARNING is zero, the message will simply be 
printed as a number (disc un-available). 


nl n2 — min LO 

Leave the smaller of two numbers. 


nl — n2 LO 

Leave the two's complement of a number. 


nl n2 —■ mod 


/ MOD 


Leave the remainder of nl/n2, with the same sign 
as nl. 


LO 



Outputs the contents of the user variable BASE 
in a BASE independent form. 


Exit to the system monitor, leaving a re-entry to 
FORTH, if possible. 


addrl addr2 n — 

Move the contents of n memory cells (16 bit contents) 
beginning at addrl into n cells beginning at addrZ. 

The contents of addrl is moved first. This definition 
is appropriate on word addressing computers. 


This is the inner interpreter that uses the 
interpretive pointer IP to execute compiled FORTH 
definitions. It is not directly executed but is 
the return point for all code procedures. It 
acts by fetching the address pointed by IP, storing 
this value in register W. It then jumps to the 
address pointed to by the address pointed to by W. 

W points to the code field of a definition which 
contains the address of the code which executes for 
that definition. This usage of indirect threaded 
code is a major contributor to the power, 
portability, and extensibility of FORTH. Locations 
of IP and W are computer specific. 


pfa nf a 

Convert the parameter field address of a definition 
to its name field. 


A Forth 'no operation'. 



d 


u/ NUMBER addr ™ 

Convert a character string left at addr with a 
preceeding count, to a signed double number, 
using the current numeric base. If a decimal 
point is encountered in the text, its position 
will be given in DPI, but no other effect 
occurs. If numeric conversion is not possible, 
an error message will be given. 


^ OFFSET —- addr U 

A user variable which may contain a block offset 
to disc drives. The contents of OFFSET is added 
to the stack number by BLOCK. Messages by 
MESSAGE are independent of OFFSET. See BLOCK, 

DRO, DRl, MESSAGE. 


OR nl n2 — or LO 

Leave the bit-wise logical OR of two 16 bit values. 


OUT — addr U 

A user variable that contains a value incremented 
by EMIT. The user may alter and examine OUT to 
control display formating. 


/ OVER nl n2 — nl n2 nl LO 

Copy the second stack value, placing it as the 
new top. 

P! b port# —- 

8080 or Z-80 I-O port store. Outputs byte b to port#. 

^ P@ port# — b 

8080 or Z-80 I-O port fetch. Inputs byte b from port#. 



Leave the address of the text output buffer, which 
is a fixed offset above HERE. 


nfa pfa 

Convert the name field address of a compiled 
definition to its parameter field address. 


The code sequence to remove a stack value and return 
to NEXT. POP is not directly executable, but is a 
FORTH re-entry point after machine code. 


- addr 

A variable containing the address of the disc buffer 
most recently referenced. The UPDATE command marks 
this buffer to be later written to disc. 


This code sequence pushes machine registers to the 
computation stack and returns to NEXT. It is not 
directly executable, but is a FORTH re-entry 
point after machine code. 


This code sequence stores machine register contents 
over the topmost computation stack value and returns 
to NEXT. It is not directly executable, but is a FORTH 
re-entry point after machine code. 


Input 80 characters of text (or until a "return") from 
the operators terminal. Text is positioned at the 
address contained in TIB with IN set to zero. 



Clear the return stack, stop compilation, and 
return control to the operators terminal. No 
message is given. 


— n 

Copy the top of the return stack to the computation 
stack. 

— addr 

A user variable which may contain the location of an 
editing cursor, or other file related function. 


addr blk f — 

The fig-FORTH standard disc read-write linkage, 
addr specifies the source or destination block 
buffer, blk is the sequential number of the 
referenced block; and f is a flag for f*0 write 
and f*l read. R/W determines the location on 
mass storage, performs the read-write and 
performs any error checking. 


—- n 

Remove the top value from the return stack and 
leave it on the computation stack. See >R and 

R. 


— addr 

A user variable containing the initial location 
of the return stack. Pronounced R-zero. See RP! 



addr n —- (compiling) 

Used within a colon-definition in the form: 

BEGIN ... WHILE ... REPEAT 

At run-time, REPEAT forces an unconditional branch 
back to just after the corresponding BEGIN. 

At compile-time, REPEAT compiles BRANCH and the 
offset from HERE to addr. n is used for error 
testing. 


nl n2 n3 — n2 n3 nl 

Rotate the top three values on the stack, bringing 
the third to the top. 


A computer dependent procedure to initialize the 
return stack pointer from user variable RO. 


— addr 

Leaves the current value in the return stack pointer 
register. 


n — d 

Sign extend a single number to form a double number. 


— addr 

A user variable that contains the initial value 
for the stack pointer. Pronounced S-zero. See SP! 


— addr 

A user variable containing the screen number 
most recently referenced by LIST. 



SEC 


addr 


A variable used by the disk interface, containing 
the sector number last read or written relative 
to the last drive used. 


/ SHOW nl n2 — 

Outputs screens nl through n2 with 3 screens per page. 
*used TRIAD) 


/ SIGN n d — d LO 

Stores an ascii sign just before a converted 
numeric output string in the text output buffer 
when n is negative, n is discarded, but double 
number d is maintained. Must be used between 
<# and #> . 


y SMUDGE 

Used during word definition to toggle the "smudge 
bit" in a definitions' name field. This prevents 
an uncompleted definition from being found during 
dictionary searches, until compiling is completed 
without error. 


/ SP! 

A computer dependent procedure to initialize the 
stack pointer from SO. 


/ SP@ — addr 

A computer dependent procedure to return the address 
of the stack position to the top of the stack, as it 
was before SP@ was executed, (e.g. 1 2 SP@ @ 

. . . would type 2 2 1). 


y SPACE —- LO 

Transmit an ASCII blank to the output device. 



y' SPACES 


n 


LO 


Transmit n ascii blanks to the output device. 


^ STATE — addr L0,U 

A user variable containing the compilation state. 

A non-zero value indicates compilation. The 
value itself may be implementation dependent. 


^ SWAP nl n2 — n2 nl LO 

Exchange the top two values on the stack. 


^ T&SCALC n — 

Track & Sector and drive calculation for disk 10. 
n is the total sector displacement from the first 
logical drive to the desired sector. 

n = (block# + OFFSET) * SEC/BLK 

The corresponding drive, track, and sector numbers 
are calculated. If the drive number is different 
from the contents of DRIVE, the new drive number is 
stored in DRIVE and SET-DRIVE is executed. 

The track number is stored in TRACK; the sector number 
is stored in SEC. T&SCALC is executed by RWDSK. 


TASK 

A no-operation word which can mark the boundary 
between applications. By forgetting TASK and 
re-compiling, an application can be discarded 
in its entirety. 


THEN — P,C0,L0 

An alias for ENDIF.. 


✓ TIB — addr U 

A user variable containing the address of the 
terminal input buffer. 



TOGGLE 


TRAVERSE 


TRIAD 


TYPE 


U* 


U/ 


addr b — 

Complement the contents of addr by the bit pattern b. 


addrl n — addrZ 

Move across the name field of a fig-FORTH variable 
length name field, addrl is the address of either 
the length byte or the last letter. If n=l, the 
motion is toward hi memory; if n=-l, the motion 
is toward low memory. The addr2 resulting is 
address of the other end of the name. 


scr — 

Display on the selected output device the three 
screens which include that numbered scr, beginning 
with a screen evenly divisible by three. Output 
is suitable for source text records, and includes 
a reference line at the bottom taken from line 15 
of screen 27. 


addr count — 

Transmit count characters from addr to the 
selected output device. 


ul u2 — ud 

Leave the unsigned double number product of two 
unsigned numbers. 


ud ul — u2 u3 

Leave the unsigned remainder u2 and unsigned 
quotient u3 from the unsigned double dividend 
ud and unsigned divisor ul. 


ul u2 — f 

Leave the Boolean value of an unsigned less-than 
comparison. Leaves f = 1 for ul u2; otherwise 
leaves 0. This function must be used when comparing 
memory addresses, ul and u2 are unsigned 16-bit 
integers. 



f — (run-time) 
addr n — (compile) 

Occurs within a colon-definition in the forms: 
BEGIN ... UNTIL 

At run-time, UNTIL controls the conditional 
branch back to the corresponding BEGIN. If 
f is false, execution returns to just after 
BEGIN; if true, execution continues ahead. 

At compile-time, UNTIL compiles (OBRANCH) 
and an offset from HERE to addr. n is used 
for error tests. 


Marks the most recently referenced block (pointed 
to by PREV) as altered. The block will subsequently 
be transferred automatically to disc should its 
buffer be required for storate of a different 
block. 


— addr 

A variable containing the address of the block 
buffer to use next, as the least recently written. 


n — 

A defining word used in the form: 
n USER ccc 

which creates a user variable cccc. The 
parameter field of cccc contains n as a fixed 
offset relative to the user pointer register UP 
for this user pointer register UP for this user 
variable. When cccc is later executed, it 
places the sum of its offset and the user area 
base address on the stack as the storage address 
of that particular variable. 



VARIABLE 


E,LO 


/ VOC-LINK 


/ VOCABULARY 


/ VLIST 


A defining word used in the form: 
n VARIABLE cccc 

When VARIABLE is executed, it creates the definition 
cccc with its parameter field initialized to n. When 
cccc is later executed, the address of its parameter 
field (containing n) is left on the stack, so that a 
fetch or store may access this location. 


— addr U 

A user variable containing the address of a field 
in the definition of the most recently created 
vocabulary. All vocabulary names are linked by 
these fields to allow control for FORGETting thru 
multiple vocabularies. 


E,L 


A defining word used in the form: 

VOCABULARY cccc 

to create a vocabulary definition cccc. Subsequent 
use of cccc will make it the CONTEXT vocabulary 
which is searched first by INTERPRET. The sequence 
"cccc DEFINITIONS" will also make cccc the CURRENT 
vocabulary into which new definitions are placed. 

In fig-FORTH, cccc will be so chained as to include 
all definitions of the vocabulary in which cccc is 
itself defined. All vocabularies ultimately chain 
to FORTH. By convention, vocabulary names are to be 
declared IMMEDIATE. See VOC-LINK. 


List the names of the definitions in the context 
vocabulary. 



^ WARNING 


U 


/ WHILE 


WIDTH 


WORD 


— addr 

A user variable containing a value controlling 
messages. If = 1 disc is present, and screen 4 
of drive 0 is the base location for messages. 

If = 0, no disc is present and messages will be 
presented by number. If = -1, execute (ABORT) 
for a user specified procedure. See MESSAGE, 
ERROR. 


f — (run-time) 

adl nl -— adl nl ad2 n2 P,C2 

Occurs in a colon-definition in the form: 

BEGIN ... WHILE (tp) ... REPEAT 

At run-time, WHILE selects conditional execution 
based on boolean flag f. If f is true (non-zero), 

WHILE continues execution of the true part thru to 
REPEAT, which then branches back to BEGIN. If f 
is false (zero), execution skips to just after 
REPEAT, exiting the structure. 

At compile time, WHILE emplaces (OBRANCH) and 
leaves ad2 of the reserved offset. The stack 
values will be resolved by REPEAT. 


— addr U 

In fig-FORTH, a user variable containing the 
maximum number of letters saved in the compilation 
of a definitions' name. It must be 1 thru 31, with 
a default value of 31. The name character count 
and its natural characters are saved, up to the 
value in WIDTH. The value may be changed at any 
time within the above limits. 


Read the next text characters from the input stream 
being interpreted, until a delimiter c is found, 
storing the packed character string beginning at 
the dictionary buffer HERE. WORD leaves the 
character count in the first byte, the characters, 
and ends with two or more blanks. Leading occurances 
of c are ignored. If BLK is zero, text is taken from 
the terminal input buffer, otherwise from the disc 
block stored in BLK. See BLK, IN. 



X 


•/ XOR 


^ C 


CCOMPILE] 


- ] 


This pseudonym for the "null" or dictionary entry 
for a name of one character of ascii null. It is 
the execution procedure to terminate interpretation 
of a line of text from the terminal or within a disc 
buffer, as both buffers always have a null at the end. 


nl n2 — xor Li 

Leave the bitwise logical exclusive-or of two 
values. 


P,L1 


Used in a colon-definition in form: 

: XXX C words 1 more ; 

Suspend compilation. The words after C, are executed, 
not compiled. This allows calculation or compilation 
exceptions before resuming compilation with J . See 
LITERAL, 3 . 


P,C 


Used in a colon-definition in form: 

: XXX [COMPILE] FORTH ; 

[COMPILE] will force the compilation of an immediate 
definition, that would otherwise execute during 
compilation. The above example will select the 
FORTH vocabulary when xxx executes, rather than at 
compile time. 


LI 

Resume compilation, to the completion of a 
colon-definition. See C • 
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